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MONDEB: 


An Advanced M6800 Monitor-Debugger 


How It Came About 

My start in the microcomputer hobby field involved 
the acquiring of a set of LSI integrated circuits in Motorola’s 
M6800 microprocessor family. It was a truly happy day 
when, after a long bout of wire wrapping, I applied power, 
hit the reset button, and the MIKBUG monitor “spoke” to 
me. Thus began my hardware-software capability spiral 
which always seemed to consume much more time and 
money than my initial expectations. While I found the 
MIKBUG monitor far superior to a front panel crammed 
with address and data bus switches, its shortcomings be¬ 
came more and more apparent as time went on. 

So I began the search for an alternate monitor- 
debugger. While this kind of software seems to be an 
important component of any extensive software develop¬ 
ment effort, this tool has received little attention. This is 
surprising in light of a recent survey which found that the 
prime activity of most computer experimenters is software 
development. While Motorola does offer a few improved 
6800 monitors (MINIBUG II, JBUG, etc), these monitors 
still do not offer significantly increased capability (at least 
from my point of view), are generally costly, and are not 
available with source listings. The source code was 
necessary to fully understand the published description, as 
my experience with MIKBUG showed. I also have an 
irresistible urge to customize the software, especially in the 
areas of input and output. This in turn often requires many 
program changes, along with reassembly, if one is to avoid 
numerous messy “hacks” to the code (the sure road to 
ruin). Turning to various microcomputer magazines, I 
found descriptions of several monitor-debuggers. But again, 
they all seemed to be designed as bare bones implementa¬ 
tions, sacrificing many conveniences and useful features. 

So, not being satisfied with what was available, I 
decided to make use of my previous experience in writing 
user interface software for commercial timesharing applica¬ 
tion programs and develop an advanced (relatively, that is) 
monitor-debugger. The title MONDEB was selected as a 
somewhat arbitrary but meaningful acronym. 

The monitor-debugger described in this book incor¬ 
porates all the general features in Motorola’s MIKBUG 
monitor as well as numerous other capabilities. While 
extremely versatile, ease of use was a prime design consid¬ 
eration. 


Goals 

Two prime project goals were minimum memory 


requirements and maximum versatility. Unfortunately, 
these goals are generally incompatible, so versatility won 
out. The final size of MONDEB turned out to be 3 K, 
implemented on three 2708 type ultraviolet erasable read 
only memories. This allows frequent alterations and 
enhancements to be made. Although 2708s have been gen¬ 
erally expensive up to now, several manufacturers have 
recently begun to second source them, bringing the price 
down considerably. 

A more secondary goal was to make this monitor- 
debugger available to a wide audience of users who could 
perhaps benefit from and improve upon the design. 


General Features 

The general features in MONDEB are listed below: 

• Liberally commented source code. 

•A prompt character signifies readiness to accept a 
command. 

•Commands are generally self-explanatory English 
words. 

•Commands may be abbreviated. 

•Commands may be modified by succeeding words 
called modifiers. 

•A space or comma separates a modifier from the 
command and other modifiers. 

•“Rubout” may be used to delete the previous char¬ 
acters). 

•Several commands may be placed on one line, sep¬ 
arated from one another by a semicolon. 
•“Control-C” may be used to abort the line being 
typed. 

•“Control-Z” will repeat the previous command line. 

• Lower case alphabetic input is automatically con¬ 
verted to upper case. 

• If a syntax error is made, its position on the input 
line is pointed to. 

• Input lines may be 72 characters long. 

• If output lines are over 72 characters long, an auto¬ 
matic carriage return and line feed is inserted after 
the 72nd character (this is called “folding”). 

• If a space occurs within the last ten characters on an 
oversize line, folding occurs on that space. 

•One extra null character is sent to the terminal for 
every eight characters in the output line, allowing 
ample time for carriage return delays. 

•The input and display bases may be set to hexadeci¬ 
mal, decimal, octal or binary (display only). 
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• ACIA input and output from the terminal or any 
AC IA address. 

• Many routines may be externally accessed through 
addresses, independent of revision number, decreasing 
the memory requirements for the application pro¬ 
grams. 

Command Summary 

In the following command summary: 

•Capital letters are typed as is. 

• Bold faced characters represent the minimum abbre¬ 
viation of a command. 

• Lower case text within “<” and “>” represents a 
variable quantity. 

•Text within “[” and “] ” is optional. 

• An exclamation mark separates alternatives. 

• “...” represents repetition of the preceding 
pattern. 


In the descriptions that follow, an address range is 
often called for. This range may be specified as “a:b” which 
means “address a through address b”, or “alb” which 
means “starting at address a and for b more bytes.” For 
example, both 100:103 and 10013 imply the addresses 100, 
101,102, and 103. 

Note also that all commands could conceivably be 
abbreviated to the point where ambiguity sets in. For 
example, R, RE or REG might each indicate the “display 
registers” command. Therefore as noted earlier, those 
characters necessary to uniquely distinguish the command 
are in bold type in the following descriptions. 

REG 

The REG command is used to display the contents of 
the internal registers, as in the following example: 

*REG 

.CC=3C .B=FF .A-23 .IX=1234 .PO0156 .SP^70A4 


REG 

SET <address><value> [<value>...] 

SET <address range><value> 

SET. <registerXva!ue> 

DISPLAY <address range> [DATA ! USED] 
DBASE [? ! HEX ! DEC ! OCT ! BIN] 

IBASE [? ! HEX ! DEC ! OCT] 

GOTO [<address>] 

BREAK [? ! <address>] 

CONTINUE 

TEST <address range> 

VERIFY [<address range>] 

SEARCH <address range><va!ue> [<value> ...] 
COPY <address range> <address> 

COMPARE <value1Xvalue2> 

DUMP <address range> [TO <address>] 

LOAD [FROM <address> ] 

DELAY <value> 

I NT <address> 

NMI <address> 

SW1 <address> 

SEI 


Command Description 

Whenever MONDEB is waiting for a line of input, it 
prompts with an asterisk (*). When finished typing the 
line of input, the user types a carriage return and MONDEB 
begins processing that line. Until the carriage return is 
typed, the line can be aborted by typing Control-C, or one 
or more preceding characters can be deleted by typing one 
or more rubouts. There are two exceptions to this. One is 
that the first character typed (after the prompt) may be 
a Control-Z. This will cause the prior line of input to be 
used for the current line as well. The other exception is 
that several logical lines may be put on one physical line 
by separating one logical line from another by a semi¬ 
colon (;). Any number of spaces may surround this semi¬ 
colon. 


The period preceding the register name is used to distin¬ 
guish its name from an ordinary hexadecimal number. 


The SET command is used to set the content of mem¬ 
ory or the internal registers to specified data. Example: 

*SET 150 2 10 AAFF 

This example sets memory location 150 to 2, location 
151 to 10,152 to AA and location 153 to FF. Note that all 
values are hexadecimal. 

If several locations are to be set, it is sometimes use¬ 
ful to “continue” a line with a line feed (LF). This will 
cause a typeout on the following line of the next address 
to be set. Simply continue typing input data. Terminate the 
last byte with a carriage return (CR). In the following 
example, which illustrates the line feed mode of data entry, 
the control characters CR (carriage return) and LF (line 
feed) are shown surrounded by a gray screen: 


*SET 100 0 1 2 3(LF) 
0104 4 56 (L?) W 

0107 7 ( 6 rX 


When more than one memory location is to be set to 
the same value, specify a range with the SET command. For 
example, to set locations 100 thru 200 to hexadecimal 3F, 
enter: 


*SET 100:200 3F 

The address range in this form of the SET command may 
only be followed by one data byte. 

The internal registers may be set as in the following 
example: 

*SET .A 27 .B FF .PC 1234 
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This causes register A to be set to 27, B to FF and PC to 
1234. Again, all values are hexadecimal. Note that a period 
must precede the register name to distinguish it from a 
memory address specified in hexadecimal. Those registers 
that may be set are: 

CC A B IX PC SP 

Since these registers correspond to stack locations, 
they only become effective with the issuance of the CON¬ 
TINUE command. Note also that changing the value of the 
stack pointer (SP) effectively changes all register values. 


DISPLAY 

The DISPLAY command is used to display the con¬ 
tents of a memory address range. For example: 

*DIS 100:104 

0100=01 0101 =5A 0102=23 0103=00 0104=FF 

Lines exceeding 72 characters in length are folded. 

For faster displays of memory, the DATA modifier 
may be used. It causes the output of records of 16 bytes of 
data per line with the address of the first byte preceding the 
data, as shown in the following example: 

*DIS 100:123, DATA 

0100 01 5A 23 00 FF 01 07 21 00 00 14 14 32 67 00 00 

0110 00 00 CE FA AC A5 54 71 39 00 75 88 72 33 11 22 

0120 AA 01 00 31 

For even faster displays, the USED modifier will 
cause a period (.) to represent a zero byte and a plus sign 
(+) to represent a nonzero byte, as in the example below: 

•DISPLAY 100: 123 USED 

0100 +++.++++..++++.. 

0110 ..+++++++ .++++++ 

0120 ++.+ 

Note that 16 data values per line are printed when the 
DATA or USED modifiers are specified and the display 
base is hexadecimal. If the display base is decimal, ten data 
values per line are output; for octal, eight values per line; 
and for binary, two values per line. So, the number of 
values printed per line indicates the base of the numbers. 


DBASE 

This command sets the display base to HEX (hexa¬ 
decimal), DEC (decimal), OCT (octal) or BIN (binary). If 
no modifier follows this command, HEX is assumed. The 
following example illustrates this command: 

•DIS 104 
0104=80 
•DBASE OCT 
•DIS 104 
000404=200 
•DBASE BIN 


•DIS 104 

0000000100000100=10000000 

•DBASE 

•DIS 104 

0104=80 


Note that the memory address as well as the value is trans¬ 
lated to the desired base, but that the input conversion is 
still hexadecimal in each case (see I BASE, below). 

If there is any doubt as to which display base is in 
effect, follow the DBASE command with a question mark, 
as: 

•DBASE 7 
OCT 

The base in effect will be typed on the succeeding line. 
IBASE 

Similar in function to the above DBASE command, 
IBASE is used to set the input base to HEX, (hexadecimal), 
DEC (decimal), or OCT (octal). Its format is the same as 
the DBASE command, including the question mark option. 
Its only difference is that it operates on input values instead 
of output values. 

GOTO 

The GOTO command is used to transfer control to a 
specified memory address, as: 

•GO 103 

The address specified is saved so that typing the GOTO 
command at some future time without a following address 
value will cause transfer to the last given GOTO address. 

BREAK 

The BREAK command is used to set a breakpoint at 
a specified memory address. This is done by replacing the 
content of the specified address with 3F (hexadecimal), 
which indicates a “software interrupt” (SWI) instruction! 
The original content is saved. This saved code is restored 
when the BREAK command is typed without an address. 
For example: 

*BR 763 

will put an SWI instruction at location 763. Subsequently 
typing 

*BR 

will remove the SWI code and restore the original instruc¬ 
tion. 

Upon encountering an SWI instruction, MONDEB 
will type “SWI:”, automatically execute the REG com¬ 
mand, and transfer control to command level. The de¬ 
bugged program could be continued, perhaps after exercis- 
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ing some MONDEB commands, by typing the CONTINUE 
command, providing that the most recent breakpoint has 
been removed. 

If a breakpoint is set while a prior breakpoint is in 
effect, the prior breakpoint is automatically removed, ie: 
only one breakpoint can be set and in effect at a time. 

To display the current breakpoint, type BREAK 
followed by a question mark, as shown in the following 
example: 

•break ? 

NOT SET 

*BR 123 

*BR ? 

SET @ 0123 
CONTINUE 

This command is used to continue a program that has 
been interrupted via a breakpoint inserted SWI instruction. 
Execution will continue at the address of the SWI instruc¬ 
tion. Therefore, it is assumed that the SWI instruction at 
that address has been removed by entering 

•BREAK 

alone to restore the former instruction, or by resetting the 
breakpoint at some other location. 

The CONTINUE command also causes the set register 
command to become effective. 

TEST 

The TEST command is used to test a programmable 
memory range for bad memory locations. The test is a 
simple one in that each location within the range is checked 
to see if it can store all zeros and then all ones. The ad¬ 
dresses of faulty locations and the associated contents are 
typed out after the check has been completed. 

It should be noted that the initial content of the 
memory location being tested is preserved. Thus, the TEST 
command doesn’t alter memory, making it possible to test 
memory already loaded with a program or data. 

An example of the test command follows. Note that 
memory locations above hexadecimal FFF are undefined. 

•TEST 800:1002 

1000=00 CANT SET TO ONES 

1001 =00 CANT SET TO ON ES 

1002=00 CANT SET TO ON ES 

1003=00 CANT SET TO ONES 


VERIFY 

The VERIFY command is used to initially compute 
the checksum of a memory range, and then subsequently to 
compare this reference checksum to a new one generated 
for the same address range, as shown below: 

•VERIFY 0:FFF 

3C 

•VER 

OK 


•SET 0013 23 
•VER 

CHECKSUM ERROR 

This command is useful when checking out new soft¬ 
ware to insure that some unforeseen bug has not caused it 
to destroy part of itself. 

The Motorola MIKBUG definition of the checksum 
of a range is simply the complement of the sum of all the 
bytes in the range. 

SEARCH 

SEARCH is used to search a memory range for a 
specified string of bytes. When the sequence is found, the 
address of the first matching byte is displayed. The maxi¬ 
mum length of a search string is six bytes. Note that the 
locations of all matching strings in the search range are 
typed, not just the first. 

A good use for this command is in program conver¬ 
sion, where, for instance, all jumps to a certain subroutine 
must be changed to another subroutine, as in input and out¬ 
put conversions. Example: 

•SEARCH 800:FFF BD FD 06 

Note that the address range (800:FFF) is followed by the 
byte string (BD FD 06, hexadecimal) being searched for. 

COPY 

The COPY command is used to copy a range of bytes 
from one memory location to another. The source range is 
followed by the start of the destination range, as shown in 
the example below: 

•COPY 75014 20 

Note that the copy will not work properly if the 
source range partly overlays the destination range and if the 
first address of the destination range exceeds the first 
address of the source range. In other works, you can shift 
a range down a few bytes, but not up. 

COMPARE 

The COMPARE command simply types out the 
sum and difference between two specified numbers. This 
eases the burden of mental computations in nondecimal 
bases. For example, when trying to patch in a BSR instruc¬ 
tion, the relative difference of two addresses may be 
needed, as in: 

•COMPARE 53F 4FF 
SUM IS 0A3E, DIF IS 0040 

Note that in subtraction, the second number is subtracted 
from the first. 

INT 

This command allows you to define the location to 
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which control will transfer upon receipt of an interrupt 
other than a nonmaskable or software interrupt. For 

example: 

♦UNIT 6074 

NMI 

Similar to the INI command, NMI defines the loca¬ 
tion to which control will transfer upon receipt of a non¬ 
maskable interrupt 

SWI 

The SWI command is also similar to the INT com¬ 
mand, but defines the location to which control will trans¬ 
fer upon encountering a software interrupt (SWI) instruc¬ 
tion. 

SEI 

SEI sets the interrupt mask bit, causing interrupts to 
be ignored. It has no modifiers. 

CLI 

CLI clears the interrupt mask bit, causing subsequent 
interrupts to be processed normally. CLI also has no 
modifiers. 

DUMP 

DUMP provides a way to save a portion of memory 
on paper tape or cassette tape. The format of the dumped 
data is identical to that of the Motorola MIKBUG monitor, 
except that header (type SO) and trailer (type S9) records 
are also included. The example of this command: 

*DUMP 600:2400 

will dump the address range 600 thru 2400, inclusive. If an 
address range is not given, the range stored in RANGLO 
and RANGHI (see source listing on pages 35 and 36) is 
used. This provides the capability of having an external 
program set up this range for a subsequent DUMP by 
MONDEB. 

By default, the dumped information will go to the 
user’s terminal. The dump may be sent to another device 
(such as a cassette) if that device is interfaced through an 
ACIA. Use the optional parameter TO keyword followed 
by the address of the desired ACIA to dump the informa¬ 
tion to some device other than the terminal. For example, 
a paper tape punch might be interfaced through an ACIA 
whose data address is 7F45 (and control address is 7F44). 
To dump memory locations 1000 through 2000 to the 
paper tape punch, the following command would be used: 


♦DUMP 1000:2000 TO 7F45 

Leaders consisting of 30 null characters precede the first 
record and follow the last record. 


Note that the display base should be set to HEX if 
the dump is to be a normal Motorola MIKBUG hexa¬ 
decimal dump. 


LOAD 

Motorola MIKBUG formatted tapes can be loaded 
with the LOAD command. To load from cassette tapes, 
simply type the LOAD command with no modifiers. 

To load from another ACIA controlled device, 
append “FROM” and the data address of the ACIA receiv¬ 
ing the formatted load information, as: 

♦LOAD FROM 7F41 
DELAY 

The DELAY command will delay the prompt for 
(and processing of) the next line of input for the specified 
number of milliseconds. This feature is intended for the 
testing of peripheral devices. It possibly attains its greatest 
value when interspersed with several other commands on a 
composite input line creating delays between the com¬ 
mands. This is done where timing of an event is crucial. For 
example, the following could be used to send three charac¬ 
ters to an ACIA controlled remote terminal at 256 milli¬ 
second intervals: 

♦SET 7F45 30; DELAY 100;SET 7F45 31 ;DELAY 

100;SET 7F45 32 

Note that the values are all hexadecimal. 

The delay is generated by an internal loop. The loop 
time in turn is dependent upon the microprocessor clock 
rate and a preset variable at memory location TIMCON. 
This variable should be set to 100 for a 1 MHz clock, or 50 
for a 0.5 MHz clock. If your processor clock runs at X 
MHz, then the closest integer value for TIMCON is found 
by rounding the result of the following expression: 

TIMCON = 100 ♦ X 


Coding Conventions 

Good coding conventions simplify the problems of 
software interface and modification. It is with this in mind 
that this monitor adheres to the following conventions: 

• MONDEB resides in the upper 3 K of a 6800’s 
memory address space (61 K to 64 K) leaving all 
lower memory available for user memory. See figure 
1 for a map layout of the MONDEB memory space. 

• Page zero (addresses 0 to 255) is not used at all, elim¬ 
inating possible storage conflicts with application 
software. 

•The scratch pad memory required for MONDEB 
resides at about 30 K, but a reassembly could place it 
almost anywhere. 

•Monitor routines for reading and displaying a char- 
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acter or character string are included. 

• Register A is generally used to pass 1 byte data to 
and from MONDEB. Other registers are generally 
preserved. 

• Jump vectors in high memory define the entry points 
to frequently used subroutines so that subsequent 


MONDEB revisions will not affect the access 
addresses of dependent software. 

• A standard Motorola MIKBUG formatted DUMP and 
LOAD utility is available. 

•The source code listing is in standard Motorola 
format. 




Figure 2: Example of scanning of a fine of input. 
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BUFBEG 
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- 
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2A 
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JSR 

m 

COMAND 

1 

(Search list 1) 

11 

(11th command) 



SET 1100 

2A 
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JSR 

n 

COMAND 

1 

(Search list 1) 

-1 

(No match) 

- 

- 

SET 1100 

2A 

JSR 

NUMBER 

- 

+1 

01 

00 

SET 1001 

2A 

JSR 

NUMBER 

- 

+1 

00 

2A 

SET 100 

2Af 

JSR 

NUMBER 

- 

0 

00 

00 

SET 100 

2A a 


Input Line Scanning 

The nucleus of MONDEB consists of a number of 
routines which scan an input line for certain information. 
Each routine looks for its own specific item of interest and 
signals success or failure depending upon whether or not 
the desired item is found. For example, the routine NUM¬ 
BER looks for a number, ie: a string of digits in the ex¬ 
pected base. The result of the scan, or search, is a number 
which is returned in a predetermined memory location. 

The concept of a line or syntax pointer is central to 
the scanning process. This pointer simply identifies the 
actual location within the input line at any moment during 
the scanning process. This pointer is called SYNPTR in the 
program, and is initialized to the beginning (first character) 
of the input line (input buffer) when an input line is re¬ 
quested via subroutine GETLIN. At this point the input 
line is scanned to a point where MONDEB can decide that 
it has a particular item, such as a number or command, 
located on the line. Let us return for a moment to the 
example of scanning for a number. 

If a good number were scanned, the pointer would be 
advanced through the sequence of numeric digits, stopping 
at the next terminator (a nonnumeric character). The 
pointer would then be in position to pick up the next item 
on the input line (after skipping over intervening delimiters). 
However, if the number were not valid (for instance, if 1Z3 
were scanned), the pointer would not be advanced at all, 
allowing an alternate routine to take over. This might be 
the case if, for example, a number or a command could 
syntactically appear in the scanned position. 

All this leads to the necessity of determining the 
status of the scan. The convention of the line scanning rou¬ 
tines is to store the scan status in accumulator A. If accu¬ 
mulator A is positive, the scan was successful, and the 
pointer advances to the first item delimiter. If it is zero, 
then the end of an input line has been reached (nothing 


else to scan), and the pointer is moved to the end of the 
line. If accumulator A is negative, the scan was unsuccess¬ 
ful, and the pointer remains unaltered. 

Since the scanning routines set up the A accumulator, 
just prior to their exit, they also set up the condition code 
Z and N bits for testing after the subroutine call, further 
simplifying the scan status tests. 

The following example illustrates the above, using 
MONDEB (with all of MONDEB’s editing facilities avail¬ 
able) to get a number from a terminal: 

10 JSR GETLIN Get a line of input 

20 LDX BUFBEG Get address of beginning of buffer 

30 STX SYNPTR Get syntax pointer equal to it 

40 JSR NUMBER Scan for the number 

50 BMI ERROR To ERROR if bad number 

60 BEQ EOLINE To EOLINE if end-of-line 

Here, line 10 gets an input line (with all editing features 
such as rubout, Control-Z, Control-C, etc) to process. 
Lines 20 and 30 set the scan pointer to the start of this in¬ 
put line. Line 40 looks for a valid number and sets up the 
condition code bits appropriately. Line 50 then checks for 
an error and branches to the label ERROR if a number is 
not recognized. Line 60 causes a branch to label EOLINE if 
there is nothing more on the line to scan. If a good number 
is scanned, the most significant byte of the number would 
be stored in NBRHI and the least significant byte in 
NBRLO. To pick up a second number, lines 40, 50 and 60 
would be repeated. See figure 2 for an example of scanning 
a line. 

Any good interactive software should be able to 
handle key words with the same ease as numeric scanning. 
MONDEB offers this facility through a subroutine called 
COMAND, COMAND operates on lists of key words. For 
example, one such list in MONDEB consists of HEX, DEC, 
OCT and BIN. Each list is associated with a number, and 
the words in the previous example happen to be (arbitrarily) 
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assigned to list #3. 

The following example, instead of looking for numer¬ 
ic data on the input line, seeks a match on some word 
(command) within list #3: 


10 

LDA A 

#3 

20 

JSR 

COMMAND 

30 

BLT 

ERROR 

40 

BEQ 

EOLINE 


Refer to list 3 
Look for a match 
To ERROR if no match 
To EOLINE if end-of-line 


Note the similarity to the NUMBER routine; the only 
thing extra needed is the list in which to search for a match. 
If a match is found, accumulator A contains the positional 
number of the matched command. For example, if DEC is 
scanned, accumulator A would be set to 2, since DEC is the 
second entry in the list. Note that since COMAND permits 
abbreviations, the user could have scanned for DEC, DE or 
simply D. Again, remember that the pointer is not advanced 
on a match failure, so another match on another list can be 
tried. 

Setting up these command lists is also fairly easy. 
They can be entered as text strings with the FCC assembler 
directive, following each command with a carriage return 
character, and terminating each list with a line feed char¬ 
acter. This is shown in the MONDEB assembly listing. Dif¬ 
ferent lists can be set up in the initialization section of the 
code section, which could be accomplished as follows: 

10 LDX #LISTS-1 

20 STX COMADR 

In this example, LISTS is the label of the first command in 
the first list of the command lists. COMADR is a memory 
location that always holds the address of the start of the 
command lists it is to use. 

While NUMBER and COMAND are the two sub¬ 
routines of major importance, there are many other useful 
routines. All, including the above two, are documented 
below. 


MONDEB Subroutine Summary 


Routine name: 
Entry address: 
Description: 

Input: 

Output: 

Register preserved: 


TIMDEL. 

FFB9. 

Execute a time delay. 

The index register specifies the num¬ 
ber of milliseconds to delay. 

None. 

Accumulator B. 


Routine name: 
Entry address: 
Description: 


Inputs: 


CKSUM. 

FFBC. 

Compute the checksum of an address 
range. 

This routine and the input address 
storage locations are used by the 
VERIFY command. 

VERFRM holds the address of the 
beginning of the range. 

VERTO holds the address of the end 
of the range. 


Output: 

Register preserved: 

Routine name: 
Entry address: 
Description: 

Input: 

Output: 


Register preserved: 

Routine name: 
Entry address: 
Description: 

Input: 

Output: 


Register preserved: 

Routine name: 
Entry address: 
Description: 


Input: 

Outputs: 


Registers preserved: 

Routine name: 
Entry address: 
Description: 

Input: 

Outputs: 


Register preserved: 


Accumulator A holds the computed 
checksum. 

Accumulator B. 

GETCHR. 

FFBF. 

Reads a character from memory (input 
line). 

LINPTR holds the address preceding 
the address of the character to get. 
Accumulator B holds the character 
read. 

LINPTR is left pointing to the address 
the character came from. 

Accumulator A. 

GETLST. 

FFC2. 

Reads a character from memory (com¬ 
mand list). 

LISPTR holds the address preceding 
the address of the character to get. 
Accumulator A holds the character 
read. 

LISPTR is left pointing to the address 
the character came from. 

Accumulator B. 

GTRANG. 

FFC5 

Scan for a pair of numbers. A 
separating the pair implies “thru”. A 
separating “!” implies “thru the 
following,” eg: 100:105 is equivalent 
to 100:!5. A single number is valid and 
gets put into both of the range high 
and range low address storage loca¬ 
tions. 

(input line). 

(RANGLO, RANGLO+1) holds the 
range start. 

(RANGHI, RANGHI+1) holds the 
range end. 

None. 

NUMBER. 

FFC8. 

Scan for a 1 or 2 byte number in the 
input base currently in effect. 

(input line). 

Accumulator A is negative: Illegal 
number, pointer not advanced. 
Accumulator A is zero: End of line 
reached, pointer set there. 
Accumulator A is positive: Valid num¬ 
ber scanned, pointer advanced to next 
delimiter. 

NBRHI: High byte of scanned number. 
NBRLO: Low byte of scanned num¬ 
ber. 

Index register. 
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Routine name: SKPDLM. 

Entry address: FFCB. 

Description: Skip over leading delimiters until a 

nondelimiter or end-of-line character is 
found. 

Input: (input line). 

Output: The carry bit is set if an end of line is 

encountered. 

Registers preserved: None. 

Routine name: TSTDLM. 

Entry address: FFCE. 

Description: Test whether specified character is a 

delimiter. 

Inputs: Accumulator B holds the character to 

be tested. DELIM specifies the delim¬ 
iter class as follows: 

1 = Only space is a delimiter. 

2 = Only comma is a delimiter. 

3 = Space or comma is a delimi¬ 
ter. 

4 = Any nonalphanumeric char¬ 
acter is a delimiter. 

Output: Accumulator A = 0 : Character is not 

a delimiter. 

Accumulator A = 1 : Character is a 
delimiter. 

Registers preserved: Accumulator B and Index register. 

Routine name: TSTEOL. 

Entry address: FFD1. 

Description: Test for an end-of-line character. 

Input: Accumulator A holds the character 

to be tested. 

Output: The Z bit of the condition code is set 

if the character in accumulator A is a 
line terminator, ie: a carriage return 
(CR), line feed (LF) or semicolon (;). 

Registers preserved: Accumulator B and index register. 

Routine name: COMAND. 

Entry address: FFD4. 

Description: A match is sought on one of the com¬ 

mands in the list specified by accumu¬ 
lator A on input. The result of the 
match attempt is reflected by accumu¬ 
lator A and the condition code bits N 
and Z. 

Inputs: (input line). 

Accumulator A holds the number of 
the list to be searched. 

Outputs: Accumulator A = —1: Match unsuccess¬ 

ful, pointer not advanced. 

Accumulator A = 0 : End of line, 
pointer advanced to end of line. 
Accumulator A = +n : Successful 
match on command in list position 
"n.” Pointer advanced to command 
delimiter. 

Registers preserved: None. 


Routine name: TYPCMD. 

Entry address: FFD7. 

Description: Types out a given command in a given 

list. 

Inputs: Accumulator A holds the command 

list number. 

COMNUM holds the command num¬ 
ber within that list. 

Outputs: None. 

Registers preserved: Accumulator B and index register. 

Routine name: OUT1 BY. 

Entry address: FFDA. 

Description: Outputs a 1 byte number with leading 

zeros. 

Inputs: The index register points to the ad¬ 

dress of the byte to output. 

DBCODE specifies the output base. 

DBCODE = 1 : HEXadecimal 
DBCODE = 2 : DECimal 
DBCODE = 3 : OCTal 
DBCODE = 4 : BlNary 

Output: Numeric characters. 

Registers preserved: Accumulator A, accumulator B and 
index register. 

Note: See subroutine OUTCHR for destination of output. 

Routine name: OUT2BY. 

Entry address: FFDD. 

Description: Outputs a 2 byte number with leading 

zeros. 

Input: The index register holds the address of 

the most significant byte of the pair 
of bytes to output. 

DBCODE specifies the output base 
(see OUT1 BY). 

Output: Numeric characters. 

Registers preserved: Accumulator A, accumulator B and 
index register. 

Note: See subroutine OUTCHR for destination of output. 

Routine name: GETLIN. 

Entry address: FFEO. 

Description: Gets a line of text entered by the user. 

The line is terminated by entering a 
carriage return. A carriage return, line 
feed pair is automatically inserted in 
the input line after 72 input charac¬ 
ters. However, the pair does not get 
inserted into the input buffer. Exceed¬ 
ing the input buffer length (default is 
72 characters) causes the message 
“TOO LONG” to be typed. The fol¬ 
lowing editing characters are available: 
Rubout deletes the previous char¬ 
acter. The deleted characters are 
surrounded by backslashes in the 
input line echoed to the terminal. 
Contro!-C will abort the line. 
Control-Z (as the first character 
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Input: 

Output: 


Registers preserved: 

Routine name: 
Entry address: 
Description: 


Input: 

Output: 

Registers preserved: 

Routine name: 
Entry address: 
Description: 


Input: 

Output: 

Registers preserved: 


Routine name: 
Entry address: 
Description: 


Input: 

Output: 


of an input line) will use the 
previous line as the current line. 

A line of characters entered by the 
user. 

Characters stored in an input line 
buffer which have a beginning address 
stored in BUFBEG and an ending 
address stored in BUFEND. 
Accumulator B is set to 3 upon line 
abort by Control-C. 

None. 

OUTSTR. 

FFE3. 

Output a character string terminated 
by a code of 4 (ie: End of Trans¬ 
mission (EOT) or Control-D). 

Index register holds the address of the 
beginning of the string. 

Character string to terminal, ACIA or 
memory (see OUTCHR). 

Accumulator A and accumulator B. 

DOCRLF. 

FFE6. 

Output a carriage return followed by 
a line feed to the terminal. 

Variable CPLCNT (characters-per-line 
count) is cleared. After the carriage 
return and line feed, one null character 
(a “filler”) is sent for every 16 charac¬ 
ters of line length, allowing time for 
the hardware to react. 

None. 

Carriage return and line feed, plus 
“fillers” to the terminal. 

Accumulator A, accumulator B and 
index register. 

OUTCHR. 

FFE9. 

Output a character to the desired out¬ 
put device or address location, as 
follows: 

OUTFLG = 0: Output is to the 
terminal (viaTOACIA). 

OUTFLG = 1: Output is to the 
ACIA data address stored in 
OUTADR. 

OUTFLG = 2: Output is to the 
address in OUTADR which is 
then incremented. 

Accumulator A holds the character 
to be output. 

One character is sent to a specified 
destination. If output is to the termi¬ 
nal, a carriage return followed by a 
line feed is interjected after every 72 


characters, or during a space in the last 
ten characters in a line. 

Registers preserved: Accumulator A, accumulator B and 
index register. 


Routine name: 
Entry address: 
Description: 

Input: 

Output: 

Registers preserved: 


TOACIA. 

FFEC. 

Output a character to the terminal. 
Accumulator A holds the character 
to be sent to the terminal. 

One character is sent to the terminal. 
Accumulator A, accumulator B and 
index register. 


Routine name: 
Entry address: 
Description: 


Input: 

Output: 


INPCHR. 

FFEF. 

Input a character from an ACIA, as 
follows: 

INPFLG = 0: Input is from the 
terminal. 

INPFLG = 1: Input is from the 
ACIA data address stored in 
INPADR. 

A character from an ACIA. 
Accumulator A returns with the char¬ 
acter. 


Registers preserved: Accumulator B and index register. 


Conclusion 

An extensive “wish list” preceded development of 
MONDEB. As development progressed, this list shrank, but 
never as fast as new features were implemented. Knowing 
development would continue virtually forever through “one 
plussing,” the decision was made to interrupt development 
at the 3 K byte level, a point where most of the important 
features were felt to be included. 

This monitor-debugger was sort of a “bootstrap” 
project in that it greatly eases the development of future 
software. Its much greater power compared to MIKBUG 
makes it a real pleasure to use. 

While the project was interesting and challenging, 
it also took much longer than planned (slipped schedules 
seem to be the norm in software development). But then 
again there is the satisfaction of seeing a complex product 
developed to your own critical specifications. 

It is my hope that this monitor-debugger will be as 
helpful to others as it has been to me, and that this imple¬ 
mentation will lead to bigger, better, and more useful 
versions. ■ 
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Appendix A: 


Conversion of TSC BASIC 


The following modifications convert Technical Systems 
Consultants’ BASIC to interface to the MONDEB monitor- 
debugger. Note that, except for the included “to”, the 
syntax of MONDEB’s SET command is used to describe the 
memory changes required. 

To get an echo (MONDEB uses full duplex operation): 

SET 106 to BD FF EF 
SET 109 to 7E FFE9 

SET 450 to 01 09 
SET 2D1 to 01 06 
SET 7BF to 01 06 
SET 7FE to 01 06 

To disable the test of the Ml KBUG PIA for a break: 

SET 452 to 39 

To have BASIC set MONDEB’s GO command to restart 
BASIC at 103: 

SET 1B4 to 70 19 

To cause BASIC’s MON command to jump to MONDEB’s 
prompt instead of Ml KBUG: 

SET 15F to FF F2 

To set up for use of MONDEB’s stack instead of MIKBUG’s 
stack: 

SET 1B7 to 70 B1 
Set 946 to 70 9C 

To have BASIC set MONDEB’s DUMP command to dump a 
BASIC program: 

SET 1C4 to 70 15 
SET 1C9 to 70 17 

To change “delete last character” from Control-FI to 
rubout: 

SET 2D4 to 7F 

To change “delete line” from Control-X to Control-C: 

SET 2E3 to 3 
SET 7C2 to 3 
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Appendix B: 


MONDEB M6800 Assembly Language Source Listing 
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NAM MONDEB 

‘THIS SOURCE CODE WAS SENT TO WALTER BANKS AT 
•THE UNIVERSITY OF WATERLOO BY DON PETERS ON PAPER TAPE 
•CROSS ASSEMBLY WAS DONE ON THE U OF W HONEYWELL 66/60 
•THE BARCODE AND LISTING WERE SET ON A PHOTON PHOTO- 

TYPESETTER DRIVEN BY THE HONEYWELL. 

* 

* MONDEB -A MONITOR/DEBUGGER FOR THE M6800 

* MICROPROCESSOR 


* AUTHOR: DON PETERS 

* DATE: APRIL 1977 

* MEMORY REQ’D: 3K BYTES AT HIGH END OF ADDRESS SPACE 



* SEE 

* 

USER 

MANUAL FOR 

CAPABILITIES & INSTRUCTIONS ON 
USE 

F 4 0 0 

* 

ORG 

ORG 

$400 

$ F 4 0 0 

DEBUG ORG AT IK 

NORMAL ORGIN AT 6 IK 

7 F 4 3 

7 F 4 5 

* I /O DEVICE 

AC I A I EQU 

AC I A 2 EQU 

* 

ADDRESSES 

$ 7 F 4 3 

$ 7 F 4 5 

ACIA #1 - MAIN TERMINAL AC IA 

ACIA § 2 - AUXILIARY TERMINAL 

ACIA 

0 0 0 D 

0 0 0 A 

* OTHER 

CR 

LF 

CONSTANTS 

EQU 1 3 

EQU 1 0 

CARRIAGE RETURN 

LINE FEED 


F400 

F 4 0 0 

8 E 7 0 B 1 

START EQU 
LDS 

* 

#STACK 

PROGRAM ENTRY POINT 
INITIALIZE THE STACK POINTER 

F 4 0 3 

BF 

7 0 0 6 

STS 

SP 

SAVE THE POINTER 

F 4 0 6 

BD 

FE0 8 

J SR 

INITAL 

INITIALIZE VARIABLES 

F 4 0 9 

BD 

F EC 7 

•TYPE OUT MONITOR NAME 

J SR DOCRLF 

& VERSION 

ADVANCE TO A CLEAN LINE 

F 4 0 C 

CE 

FEF 2 

LDX 

#MSGHED 

GET ADDRESS OF HEADER 

F 4 0 F 

BD 

FE4B 

J SR 

OUTSTR 

TYPE IT 





•SET UP DESTINATION OF INPUT LINE 





•DEFINE BEGINNING OF INPUT BUFFER 


F 4 1 2 

CE 

7 0 2 F 

LDX 

#TTYBUF-1 GET ADDRESS 

OF TERMINAL 




* 

INPUT BUFFER 


F 4 1 5 

FF 

7 0 2 C 

STX 

BUFBEG SAVE IT 





♦DEFINE END 

OF INPUT BUFFER - 72 CHAR 

CAPACITY, INCL 

F 4 1 8 

CE 

7 0 7 8 

LDX 

# TTYEND 


F 4 1 B 

FF 

7 0 2 E 

STX 

BUFEND 
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F 4 1 H 

86 

03 

♦DELIMITER 

LDA 

CLASS DEFINITION - SPACE OR COMMA (CODE 3 
A #3 

F 4 2 0 

B 7 

7 0 0 F 

STA 

A 

DELIM 

F 4 2 3 

20 

OF 

BRA 


PROMP 1 





* PREPARE TO i 

GET A NEW 

COMMAND 

F4 2 5 

BD 

F EC 7 

PROMPT JSR 

DOCRLF 

TYPE CR-LF 

F4 2 8 

7 C 

7 0 0 E 

INC 

BOLFLG 

SET "BEGINNING OF LINE" FLAG 

F4 2 B 

FE 

7 0 0 A 

LDX 

SYNPTR 

POINT TO CURRENT CHARACTER 

F4 2 E 

A 6 

00 

LDA A 

X 

GET I T 

F 4 3 0 

8 1 

3 B 

CMP A 

#' ; 

SEMICOLON? 

F4 3 2 

27 

1 A 

BEQ 

♦TYPE PROMPT 

GETCMD 

CONTINUE SCAN IF IT IS. 
SKIPPING THE PROMPT 

F 4 3 4 

CE 

FEFF 

PROMP1 LDX 

#MSGPRM 


F 4 3 7 

BD 

FE4B 

JSR 

OUTSTR 



F 4 3 A 

BD 

FD8C JSR 

♦ABORT LINE 

GETLIN GET LINE OF INPUT 

ON A CONTROL-C 

F4 3D 

C 1 

0 3 

CMP 

B #3 


F 4 3 F 

2 7 

E4 BEQ 

♦SET SYNTAX 
* 

PROMPT 

SCANNING 

POINTER TO BEGINNING OF 
BUFFER/LINE 

F 4 4 I 

FE 

7 0 2 C 

LDX 

BUFBEG 

F 4 4 4 

FF 

7 0 0 A 

STX 

SYNPTR 






♦REPROMPT ON 

AN EMPTY 

LINE (FIRST 

CHAR = CR, LF, OR 

F 4 4 7 

A 6 

0 1 

LDA A 

1 , X 

GET FIRST 

CHAR 

F 4 4 9 

BD 

FA 8 9 

J SR 

TSTEOL 

TEST IT 


F 4 4 C 

2 7 

D7 

BEQ 

PROMPT 

IF IT IS, 

PROMPT AGAIN 




♦USE LIST 1 WHEN MATCHING 


F 4 4 E 

8 6 

0 1 

GETCMD LDA A 

#1 






♦NOW GO FOR A 

MATCH 



F 4 5 0 

BD 

F9C7 

JSR 

COMAND 




F4 5 3 

2 7 

DO 

* - AND 

TEST 

BEQ 

THE RESULT 

PROMPT 

OF THE SCAN 

REPROMPT IF JUST A CR WAS TYP 

F4 5 5 

2 E 

I F 


BGT 

JMPCMD 

GOOD COMMAND IF POSITIVE 

F 4 5 7 

FE 

7 0 2 C 

****** 

♦UNRECOGNIZABLE SYNTAX - POINT TO ERROR 

BADSYN LDX BUFBEG GET START OF LINE 

F 4 5 A 

BC 

7 0 0C 

♦SPACE 

BADS 1 

OVER 

CPX 

TO ERROR 

LINPTR 

IN SYNTAX 

AT ERROR? 
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BADS 2 
OUTSP 


OUTPUT A SPACE 
NO, MOVE ON 


F 4 5 D 2 7 06 BEQ 

F45F BD FBF1 JSR 

F46 2 0 8 I NX 

F 4 6 3 20 F 5 BRA BADS 1 

* THE "EXTRA" CHAR "1" IS COMPENSATED FOR BY THE PROMPT 

* CHAR ON THE PRECEED1NG LINE 

F 4 6 5 8 6 5 E BADS 2 LDA A #'l AT ERROR - GET AN UP-ARROW 

F 4 6 7 BD F E 7 6 JSR OUTCHR PRINT IT 

F 4 6 A BD F EC 7 JSR DOCRLF 

F46D 20 C5 BRA PROMP1 IGNORE ANY SUCCEEDING PACKED 

* COMMANDS 

* * * * * * 

♦THERE SHOULD BE NO MORE CHARACTERS ON THE INPUT LINE 

* (EXCEPT DELIMITERS) 

F 4 6 F BD FA 6 9 NOMORE JSR SKPDLM 

F472 25 B1 BCS PROMPT IF CARRY BIT SET, END OF LINE 

* (NORMAL) 

♦THERE IS SOMETHING THERE BUT SHOULDN'T BE 
F 4 7 4 20 El BRA BADSYN 


****** 


♦EXECUTE A COMPUTED "GOTO" TO THE PROPER COMMAND 


F 4 7 6 

1 6 


JMPCMD TAB 



SAVE COMMAND # IN ACCB 

F 4 7 7 

4 8 


ASL 

A 


MULTIPLY COMMAND BY 2 

F 4 7 8 

1 B 


ABA 



ACCA NOW HOLDS COMMAND § 




* 



MULTIPLIED BY 3 




* ADD IT TO 

BASE OF JUMP TABLE 

F 4 7 9 

C 6 

F 4 

LDA 

B 

#JMPHI 

GET HI BYTE OF START OF JUMP 




* 



TABLE IN ACCB 

F 4 7 B 

8 B 

8 5 

ADD 

A 

#JMPLO 

ADD LO BYTE OF START OF JUMP 




* 



TABLE TO ACCA 

F 4 7 D 

C 9 

00 

ADC 

B 

#0 

ADD CARRY IF THERE WAS 




* 



ONE 




♦MOVE ACCA 

& 

ACCB TO 

IX (CODE IS WEIRD, BUT BRIEF) 

F 4 7 F 

3 6 


PSH 

A 



F 4 8 0 

3 7 


PSH 

B 



F 4 8 1 

30 


TSX 



PUT ADDRESS OF "GOTO" INTO X 

F 4 8 2 

EE 

00 

LDX 


X 

GET THE ADDRESS ITSELF 

F 4 8 4 

3 3 


PUL 

B 


RESTORE THE STACK 

F 4 8 5 

3 2 


PUL 

A 




F 4 8 6 

6 E 

00 


JMP 

X JUMP TO RIGHT COMMAND 


F 4 8 5 

JMPTBL 

EQU 

♦ - 3 


00F4 

JMPHI 

EQU 

JMPTBL/256 


F400 

JMP2 5 6 

EQU 

JMPHI * 2 5 6 


00 8 5 

JMPLO 

EQU 

JMPTBL-JMP 2 5 6 

F 4 8 8 

7 E 

F4C 7 


JMP 

REG 

F48B 

7 E 

F 5 1 4 


JMP 

GOTO 

F 4 8 E 

7 E 

F 5 2 6 


JMP 

SE1 

F 4 9 1 

7 E 

F 5 2 9 


JMP 

CLI 
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F 4 9 4 

7 E 

F 5 2 C 


JMP 

COPY 



F 4 9 7 

7 E 

F5 5 8 


JMP 

BREAK 



F 4 9 A 

7 E 

F 5 B 8 


JMP 

I BASE 



F 4 9 D 

7 E 

F5CE 


JMP 

DBASE 



F 4 A 0 

7 E 

F 6 0 4 


JMP 

CONTIN 



F 4 A 3 

7 E 

F 6 0 8 


JMP 

DI SPLA 



F 4 A 6 

7 E 

F 6 7 3 


JMP 

SET 



F 4 A 9 

7 E 

F7 2 0 


JMP 

VERIFY 



F 4 AC 

7 E 

F7 6 6 


JMP 

SEARCH 



F4 AF 

7 E 

F 7 ED 


JMP 

TEST 



F 4 B 2 

7 E 

F 8 4 4 


JMP 

I NT 



F 4 B 5 

7 E 

F 8 4 C 


JMP 

NMI 



F 4 B 8 

7 E 

F 8 5 4 


JMP 

SWI 



F4 BB 

7 E 

F 8 5 C 


JMP 

COMPAR 



F4 BE 

7 E 

F8 8 5 


JMP 

DUMP 



F 4 C 1 

7 E 

F 9 2 4 


JMP 

LOAD 



F 4 C 4 

7 E 

F 9 B 5 

****** 

JMP 

DELAY 






* REG - 

DISPLAY REGISTERS 



F 4 C 7 

REG 

EQU 

* 






* PRINT 

STACK 

STORED SWI 

DATA 


F 4 C 7 

FE 

7 00 6 

DISREG 

LDX 

SP 

GET SAVED 

STACK POINTER 

F4CA 

08 



I NX 







♦REGISTER NAME TYPEOUT 

INITIALIZATION 

F4CB 

7 F 

7 0 D 6 


CLR 

COMNUM 

START AT 

BEGINNING OF THE 




* 



REG ISTER 

NAME LIST 


F4CE 

8 D 

1 3 

B SR 

OUT 2 

TYPE 

CONDITION CODES 

F 4 D 0 

8 D 

1 1 

B SR 

OUT 2 

TYPE 

ACC B 

F 4 D 2 

8 D 

OF 

BSR 

OUT 2 

TYPE 

ACCA 


F4D4 

8 D 14 

BSR 

OUT 4 

TYPE 

INDEX REG 

F4D6 

8 D 1 2 

BSR 

OUT 4 

TYPE 

PROGRAM O 





* TYPE THE 

STACK POINTER 

LOCATION 

F4D8 

8 D 

1 8 

BSR 

OUT 2 A4 

TYPE 

STACK POINTER ID 

F 4 DA 

CE 

7 0 0 6 

LDX 

#SP 



F4DD 

BD 

FC 0 4 

J SR 

OUT 2 BY 

TYPE 

THE VALUE 

F 4 E 0 

7 E 

F46F 

JMP 

NOMORE 







♦OUTPUT CONTENT OF A 1 BYTE REGISTER 

F 4 E 3 

8 D 

0D 

OUT 2 BSR 

OUT 2 A4 

F 4 E 5 

BD 

FBFD 

J SR 

OUT 1 BY 

F 4 E 8 

0 8 


I NX 


F 4 E 9 

3 9 


RTS 






* OUT PUT CONTENT OF A 2 

BYTE 

REG ISTER 



F4EA 

8 D 

06 

OUT 4 BSR 

OUT 2 A4 






F4 EC 

BD 

FC 0 4 

J SR 

OUT 2 BY 






F4EF 

08 


I NX 


SKIP 

TO 

NEXT BYTE 

IN 

STACK 

F4 F0 

08 


I NX 


SKIP 

TO 

NEXT BYTE 

IN 

STACK 


22 



F 4 F 1 

39 


RTS 







*M1 SC SETUP 

FOR REGISTER DISPLAY 


F 4 F 2 

BD 

FBF 1 

OUT 2 A 4 JSR 

OUTS P 

OUTPUT A SPACE 


F 4 F 5 

1C 

7 0D6 

INC 

COMNUM 

SKIP TO NEXT REG I 

STER NAME 

F4 F 8 

8 6 

0 5 

LDA A 

#5 

REGISTER NAME IS 

IN LIST 5 

F 4 FA 

BD 

FA 2 E 

J SR 

TYPCMD 

TYPE IT 


F4 FD 

BD 

FBF7 

J SR 

OUTEQ 

TYPE AN " = * 


F 5 0 0 

3 9 


RTS 








* ENTER 

HERE 

FROM SOFTWARE INTERRUPT 

F 5 0 1 

CE 

FFO 1 

TYPSWI 

LDX 


#MSGSW I 


F 5 0 4 

BD 

FE4B 


JSR 


OUT STR 





* DECREMENT 

PC 

SO IT POINTS TO "SWI" INSTRUCTION 

F 5 0 7 

FE 

7 0 0 6 


LDX 


SP 


F5 OA 

6 D 

07 


TST 


7 ,X 

TEST LO BYTE OF PC FOR PENDING 




* 




BORROW 

F 5 0 C 

2 6 

02 


BNE 


TYPSWI 


F 5 0 E 

6 A 

06 


DEC 


6 , X 

NEED TO BORROW, DECR HI BYTE OF 




* 




PC 

F5 I 0 

6 A 

07 

TYPSWI 

DEC 


7 , X 

DECR LO BYTE OF PC 

F 5 1 2 

20 

B 3 

****** 

BRA 


DISREG 

GO DISPLAY REGISTERS 




♦GOTO - 

GO 

TO 

MEMORY 

ADDRESS 

F 5 1 4 

BD 

F B 4 7 

GOTO 

JSR 


NUMBER 

GET DESTINATION 

F 5 1 7 

2 7 

08 


BEQ 


GOTO 1 

IF NONE, USE DEFAULT 

F 5 I 9 

FE 

7 0 13 


LDX 


NBRHI 


F5 IC 

FF 

70 19 


STX 


LASTGO 

SAVE IT 

F5 i F 

6 E 

00 


JMP 


X 

GO TO DESTINATION 


F 5 2 1 

FE 

7 0 19 

GOTO 1 

LDX 

LASTGO 

GET LAST GOTO ADDRESS 

F 5 2 4 

6 E 

00 

****** 

JMP 

X 

GO TO IT 




* S E I - 

SET I 

NTERRUPT MASK 

F 5 2 6 

OF 


SE I 

SE I 



F 5 2 7 

20 

2 C 

****** 

BRA 

COPY 3 





♦CL I - 

CLEAR 

INTERRUPT 

MASK 

F 5 2 9 

0E 


CLI 

CL I 



F 5 2 A 

20 

29 

****** 

BRA 

COPY 3 





♦COPY 

- COPY 

FROM ONE 

LOCATION TO ANOTHER 

F 5 2 C 

BD 

FAFC 

COPY 

JSR 

GTRANG 

GET SOURCE RANGE INTO RANGLO & 




* 



RANGHI 

F5 2 F 

2 F 

2 1 


BLE 

COPY 2 

ERROR IF NO SOURCE 

F5 3 1 

BD 

FB4 7 


JSR 

NUMBER 

GET DESTINATION 

F 5 3 4 

2 F 

1C 


BLE 

COPY 2 

ERROR IF NO DESTINATION 


F 5 3 6 

FE 

70 15 

LDX 


RANGLO 

GET 

SOURCE ADDRESS POINTER 

F5 3 9 

A6 

00 COPY 1 

LDA 

A 

X 

GET 

BYTE FROM SOURCE 

F 5 3 B 

FE 

70 13 

LDX 


NBRHI 

GET 

DESTINATION ADDRESS POINTER 

F 5 3 E 

A 7 

00 

STA 

A 

X 

SAVE 

BYTE IN DESTINATION 


23 



F 5 4 0 

08 


1 NX 


INC DESTINATION POINTER 

F 5 4 1 

FF 

70 13 

STX 

NBRHI 

SAVE IT 

F 5 4 4 

FE 

70 15 

LDX 

RANGLO 

GET SOURCE ADDRESS POINTER 

F 5 4 7 

BC 

70 17 

CPX 

RANGHI 

COMPARE TO END OF INPUT RANGE 

F 5 4 A 

27 

09 

BEQ 

COPY 3 

DONE IF EQUAL 

F 5 4 C 

08 


I NX 


NOT EQUAL, INC SOURCE POINTER 

F 5 4 D 

FF 

7 0 15 

STX 

RANGLO 

SAVE IT 

F5 5 0 

20 

E7 

BRA 

COPY 1 

LOOP FOR NEXT BYTE 


F5 5 2 

7 E 

F4 5 7 

COPY 2 

JMP 

BADSYN 

BAD SYNTAX 

F5 5 5 

7 E 

F46F 

COPY 3 

* 

JMP 

NOMORE 

SHOULD BE NO MORE ON THE INPUT 
LINE 





****** 

* BREAK 

* 

- SET 

BREAK PO 

INT AT SPECIFIED ADDRESS & REMOVE 
OLD ONE 

F5 5 8 

BD 

FB4 7 

BREAK 

J SR 

NUMBER 

GET BREAKPOINT LOCATION 

F5 5 B 

2 B 

3 1 


BMI 

BREAK 3 

IF NOT NUMERIC, LOOK FOR ’?' 

F 5 5 D 

27 

1 F 

* 

BEQ 

BREAK 2 

IF NO MODIFIER, REMOVE OLD 
BREAKPOINT 





* CHECK IF A " 

SWI* IS 

STORED AT THE BREAK ADDRESS 

F5 5 F 

FE 

7 0 2 0 

LDX 

BRKADR 

GET CURRENT BREAK ADDRESS 

F 5 6 2 

A 6 

00 

LDA A 

X 

AND THE CHAR THERE 

F5 64 

8 1 

3 F 

CMP A 

#$3F 

COMPARE TO "SWI" 

F5 6 6 

26 

0 5 

BNE 

BREAK 1 

EQUAL? 




*YES, RESTORE 

THE OLD 

INSTRUCTION 

F 5 6 8 

B 6 

70 2 2 

LDA A 

BRKINS 

GET IT 

F 5 6 B 

A 7 

00 

STA A 

X 

RESTORE IT 


F 5 6 D 

FE 

70 13 

* PUT BREAK 

BREAK 1 LDX 

AT 

NEWLY 

NBRHI 

SPECIFIED LOCATION 

GET NEW BREAKPOINT (BREAK 

F 5 7 0 

FF 

7 0 20 

* 

STX 


BRKADR 

ADDRESS) 

SAVE IT 

F5 7 3 

A6 

00 

LDA 

A 

X 

GET INSTRUCTION STORED THERE 

F5 7 5 

B 7 

70 2 2 

STA 

A 

BRKINS 

SAVE IT 

F5 7 8 

86 

3 F 

LDA 

A 

# $ 3 F 

GET CODE FOR SOFTWARE INTERRUPT 

F 5 7 A 

A 7 

00 

STA 

A 

X 

PUT IT AT BREAKPOINT 

F 5 7 C 

20 

34 

BRA 


BREAKS 

ALL DONE 





‘REMOVE BREAKPOINT 



F 5 7 E 

FE 

7 020 

BREAK2 LDX 


BRKADR 

GET ADDRESS OF BREAK 

F 5 8 1 

A 6 

00 

LDA 

A 

X 

GET INST. 

THERE 

F5 8 3 

8 1 

3 F 

CMP 

A 

# $ 3 F 

SWI ? 


F 5 8 5 

2 6 

2 B 

BNE 


BREAKS 

IF NOT, RETURN & PROMPT 

F 5 8 7 

B 6 

7 0 2 2 

LDA 

A 

BRKINS 

WAS A SWI 

- GET PREVIOUS INST 

F 5 8 A 

A 7 

00 

STA 

A 

X 

& RESTORE 

IT 

F 5 8 C 

20 

24 

BRA 


BREAKS 




F 5 8 E 

86 

04 

•LOOK FOR A 

BREAK3 LDA 

QUESTION 
A #4 

MARK IN LIST 4 

F 5 9 0 

BD 

F9C7 

J SR 

COMAND 

SCAN FOR IT 

F 5 9 3 

2 F 

20 

BLE 

BREAK6 

BAD SYNTAX I 


24 



F 5 9 5 

FE 

7020 

LDX 

BRKADR 

IT IS, GET BREAK ADDRESS 

F 5 9 8 

A 6 

00 

LDA 

A X 

GET INSTRUCTION THERE 

F 5 9 A 

8 1 

3 F 

CMP 

A #$3F 

IS IT A "SWI " ? 

F 5 9 C 

27 

08 

BEQ 

BREAK4 

IF YES, SAY SO 




♦NO BREAKPOINT SET 


F 5 9 E 

CE 

FF1 0 

LDX 

#MSGNBR 

GET THAT MESSAGE 

F 5 A 1 

BD 

FE4B 

J SR 

OUTSTR 

SAY IT 

F5A4 

20 

OC 

BRA 

BREAKS 





♦BREAKPOINT 

SET 


F5A6 

CE 

FF 1 8 

BREAK4 LDX 

#MSGBAT 

GET THAT MESSAGE 

F5A9 

BD 

FE4B 

J SR 

OUTSTR 

SAY IT 

F 5 AC 

CE 

7 0 2 0 

LDX 

# BRKADR 

GET BREAK ADDRESS 

F 5 A F 

BD 

FCO 4 

J SR 

OUT 2 BY 

TYPE IT 


F5B2 

7 E 

F46F 

BREAK5 

JMP 

NOMORE 

F 5 B 5 

7 E 

F457 

BREAK 6 

JMP 

BADSYN 





****** 







* I BASE 

- SET 

INPUT BASE 





♦LOOK 

FOR HEX 

, DEC, OR OCT IN LIST #3 


F 5 B 8 

86 

03 

I BASE 

LDA A 

#3 


F 5 BA 

BD 

F9C7 


J SR 

COMAND 


F 5 BD 

2 B 

09 


BMI 

I BASE2 UNRECOGNIZABLE 

BASE, TRY "?" 

F5BF 

2 E 

02 


BGT 

I BASE 1 


F 5 C 1 

86 

0 1 


LDA A 

#1 NO BASE GIVEN - 

DEFAULT TO HEX 

F 5 C 3 

B 7 

7 0 10 

I BASE 1 

STA A 

IBCODE SAVE BASE CODE 


F5C6 

20 

EA 


BRA 

BREAKS 






♦LOOK FOR " 

? " 

IN LIST 

#4 



F 5 C 8 

B 6 

70 10 

I BASE2 LDA 

A 

IBCODE 

GET 

IB CODE 

IN CASE ITS NEEDED 

F5CB 

36 


PSH 

A 


SAVE 

IT ON 

STACK TEMPORARILY 

F5CC 

20 

24 

BRA 


DBAS E4 








****** 








♦DBASE 

- SET 

DISPLAY 

BASE 




♦LOOK 

FOR HEX 

:, DEC, OCT 

, OR BIN IN LIST #3 

F5CE 

8 6 

03 

DBASE 

LDA 

A 

#3 


F 5 DO 

BD 

F 9 C 7 


J SR 


COMAND 


F5D3 

2 B 

1 9 


BMI 


DBASE 3 

UNRECOGNIZABLE BASE, TRY "?" 

F5D5 

2 E 

02 


BGT 


DBASE 1 


F5D7 

86 

0 1 


LDA 

A 

#1 

NO BASE GIVEN - DEFAULT TO HEX 

F5D9 

B 7 

70 11 

DBASE 1 

STA 

A 

DBCODE 





♦COMPUTE THE 

NUMERIC 

DISPLAY BASE (FOR THE "DISPLAY" 




• 




COMMAND) 

F 5 DC 

CE 

F 5 E 9 


LDX 


#DBTBL- 

1 POINT TO HEAD OF 




* 




DISPLAY BASE TABLE 

F5DF 

08 


DBASE 2 

I NX 



INC TABLE POINTER 

F5E0 

4 A 



DEC 

A 


DECR DISPLAY BASE CODE 

F 5 E 1 

26 

FC 


BNE 


DBASE2 

LOOP IF NOT EQUAL 

F 5 E 3 

A6 

00 


LDA 

A 

X 

EQUAL - GET NUMERIC BASE FROM 




* 




TABLE 

F 5 E 5 

B7 

70 12 


STA 

A 

DBNBR 

SAVE IT 

F5E8 

20 

C 8 


BRA 


BREAKS 

DONE 


25 



♦DISPLAY BASE TABLE 


F5 EA 

1 0 

DBTBL FCB 

1 6 

F5 EB 

OA 

FCB 

1 0 

F 5 EC 

0 8 

FCB 

8 

F 5 ED 

02 

FCB 

2 





* LOOK FOR " 

? " IN LI ST 

#4 


F5 EE 

B 6 

70 11 

DBAS E 3 

LDA 

A DBCODE 

GET DB CODE IN 

CASE ITS NEEDED 

F5 F I 

3 6 



PSH 

A 

SAVE IT ON STACK TEMPORARILY 

F 5 F 2 

8 6 

04 

DBASE 4 

LDA 

A #4 



F 5 F4 

BD 

F 9 C 7 


J SR 

COMAND 



F 5 F 7 

3 3 



PUL 

B 

RETRIEVE INPUT 

BASE/DISPLAY 




* 



BASE CODE 


F 5 F 8 

2 F 

BB 


BLE 

BREAK 6 

ERROR IF THE "SOMETHING” WAS 




* 



NOT AN * ?* 





* SET UP 

FOR 

TYPEOUT OF 

BASE CODE 


F5 FA 

86 

03 


LDA 

A #3 

ITS IN LIST 3 


F5 FC 

F 7 

70D6 


STA 

B COMNUM 

STORE BASE CODE 


F5 FF 

BD 

FA 2 E 


J SR 

TYPCMD 

TYPE OUT BASE 


F 6 0 2 

20 

AE 


BRA 

BREAKS 






****** 








♦CONTINUE - 

CONTINUE FROM A "SWI" 





♦RETURN 

TO 

LOCATION WHERE SWI WAS 


F 6 0 4 

BE 

7 00 6 

CONTIN 

LDS 

SP 

IN CASE SP WAS 

MODIFIED VIA SET 




* 



COMMAND 


F 6 0 7 

3 B 



RTI 








****** 







♦DISPLAY - 

DISPLAY MEMORY DATA 



F 6 0 8 

BD 

FA FC 

DISPLA JSR 

GTRANG GET MEMORY 

DISPLAY RANGE 

F 6 0 B 

2 F 

60 

BLE 

DISPL9 ADDRESS 

I S 

REQUIRED 




* INITIALIZE 

ADDRESS POINTER TO 

START OF MEMORY 

F 6 0 D 

FE 

70 15 

LDX 

RANGLO 



F 6 1 0 

FF 

7 0 B 8 

STX 

MEMADR 







♦SEARCH LIST 

6 FOR DISPLAY MODIFIERS "DATA" OR "USED” 

F 6 1 3 

86 

06 

LDA A 

#6 


F 6 1 5 

BD 

F 9 C 7 

JSR 

COMAND 


F 6 1 8 

2 B 

5 3 

BMI 

D I S PL9 

ANY OTHER MODIFIER IS ILLEGAL 




♦ADJ DISPLAY 

MODIFIER 

CODE SO THAT: - 1=ADDR & DATA, 




* 


0=DATA, 1=USED 

F 6 1 A 

4 A 


DEC A 



F 6 1 B 

B 7 

70D6 

STA A 

COMNUM 

SAVE FOR LATER TESTS 




♦ IN IT "DATA 

VALUES PER 

LINE" COUNTER 

F 6 1 E 

5 F 


CLR B 



F 6 1 F 

5 C 


INC B 



F 6 2 0 

CE 

7 0 B 8 

DISPL1 LDX 

#MEMADR 


F 6 2 3 

7 D 

70D6 

TST 

COMNUM 

WHICH DISPLAY OPTION? 

F 6 2 6 

2 B 

2 C 

BMI 

D I SPL6 

IF "ADDRESS & DATA", GO THERE 




♦OUTPUT DATA 

WITH ADDRESS 

ONLY AT 

LINE BEGINNING 

F 6 2 8 

5 A 

DEC B 


COUNT DATA 

VALUES PER 

L I NE 

F6 2 9 

26 0C 

BNE 

DIS PL2 

I F 

COUNT NOT UP, SKIP 

ADDRESS 


OUTPUT 


26 



F 6 2 B 

BD 

FEC 7 

JSR 

DOCRLF 

GET TO LINE BEGINNING 

F 6 2 E 

BD 

FC 0 4 

JSR 

OUT 2 BY 

OUTPUT ADDRESS 

F 6 3 1 

BD 

FBF l 

JSR 

OUTS P 

AND A SPACE 

F 6 3 4 

F 6 

70 12 

LDA B 

DBNBR 

RESET LINE COUNTER 


F 6 

3 7 

FE 

7 0 B 8 

DISPL2 LDX 

MEMADR 

POINT TO DATA AT THAT ADDRES 

F 6 

3 A 

7 D 

7 0 D 6 

TST 

COMNUM 

WANT "DATA" OPTION? 

F 6 

3D 

2 E 

05 

BGT 

DIS PL 3 

IF NOT, GO TO "USED" CODE 




*"DATA 

" OPT 11 

ON 



F 6 3 F 

BD 

FBF 1 

JSR 


OUTS P 

OUTPUT PR EC E ED 1NG 

SPACE 

F 6 4 2 

20 

1 B 

BRA 


D I SPL7 





*"USED 

" OPTION 



F 6 4 4 

A 6 

00 DISPL3 

LDA 

A 

X 

GET THE DATA 


F 6 4 6 

4 D 


TST 

A 


EXAMINE IT FOR ZERO 

F 6 4 7 

2 6 

04 

BNE 


DI SPL4 



F 6 4 9 

86 

2 E 

LDA 

A 

#' 

ITS ZERO, GET A ". 


F 6 4 B 

20 

02 

BRA 


DI SPL5 



F64D 

86 

2 B DISPL4 

LDA 

A 

#' + 

ITS NON-ZERO, GET 

A " + " 

F 6 4 F 

BD 

F E 7 6 DISPL5 

J SR 


OUTCHR 

OUTPUT THE "." OR 


F 6 5 2 

20 

0E 

BRA 


DISPL8 




F 6 5 4 

BD 

FBF 1 

D 

I SPL6 

JSR 

OUT S P 

OUTPUT A PRECEEDING SPACE 

F657 

BD 

FC0 4 



JSR 

OUT 2 BY 

TYPE ADDRESS 

F6 5 A 

BD 

FBF7 



JSR 

OUTEQ 

TYPE "=" 

F 6 5 D 

EE 

00 



LDX 

X 

GET CONTENT 

F 6 5 F 

BD 

FBFD 

D 

I SPL7 

JSR 

OUT 1 BY 

TYPE IT 


F 6 6 2 

BC 

7 0 17 

DISPL8 CPX 

RANGHI 

ARE WE 

DONE? 

F 6 6 5 

27 

09 

BEQ 

DISP10 

I F YES, 

BACK TO PROMPT 

F 6 6 7 

08 


I NX 


NO, INC 

MEMORY ADDRESS 

F 6 6 8 

FF 

7 0 B 8 

STX 

MEMADR 

SAVE IT 


F 6 6 B 

20 

B 3 

BRA 

DISPL1 




F 6 6 D 

7 E 

F 4 5 7 

DI 

[ SPL9 

JMP 

BADSYN 

F 6 7 0 

7 E 

F46F 

DI 

[ SP 1 0 

JMP 

NOMORE 





****** 








* S ET - 

SET 

MEMORY LOCATIONS 


F 6 7 3 

BD 

FA FC 

SET 

JSR 

GTRANG 

GET MEMORY 

LOCATI ON/RANGE 

F 6 7 6 

2 B 

4 E 


BMI 

SET5 

IF NOT AN 

ADDRESS, LOOK FOR 




* 



REG ISTER 

NAME 

F 6 7 8 

2 7 

F 3 


BEQ 

DI SPL9 

AN ADDRESS 

MODIFIER IS REQUI 




* RANGE 

OF ADDRESSES 

SPEC IFI ED? 


F 6 7 A 

FE 

70 15 


LDX 

RANGLO 



F 6 7 D 

BC 

70 17 


CPX 

RANGHI 



F 6 8 0 

27 

1 2 


BEQ 

SET 2 

IF SINGLE 

ADDRESS, SET UP 




* 



ADDRESSES 

INDIVIDUALLY 




♦SET A 

RANGE OF ADDRESSES TO A SINGLE VALUE 

F 6 8 2 

BD 

FB4 7 


JSR 

NUMBER 

GET THAT VALUE 


27 



F6 8 5 

2 F 

E 6 


BLE 

DIS PL9 

ITS REQUIRED 

F 6 8 7 

B 6 

70 14 


LDA A 

NBRLO 

PUT IT IN ACCA 

F 6 8 A 

A 7 

00 

SET1 

STA A 

X 

STORE IT IN DESTINATION 

F 6 8 C 

BC 

7 0 17 


CPX 

RANGHI 

END OF RANGE HIT? 

F 6 8 F 

27 

DF 


BEQ 

DI SP 1 0 

IF YES, ALL DONE 

F 6 9 1 

08 



I NX 


NO, ON TO NEXT ADDRESS IN RANGE 

F 6 9 2 

20 

F 6 


BRA 

SET1 

LOOP TO SET IT 




* SET 

ADDRESSES UP INDIVIDUALLY 

F 6 9 4 

FF 

7 0 B 8 

SET2 

STX 

MEMADR 

SAVE MEMORY LOC 

F 6 9 7 

BD 

F B 4 7 

SET3 

J SR 

NUMBER 

GET DATA TO PUT THERE 

F 6 9 A 

27 

0D 


BEQ 

SET 4 

END OF LINE? 

F 6 9 C 

2D 

CF 


BLT 

DI SPL9 

ABORT IF BAD SYNTAX 

F 6 9 E 

B 6 

7 0 14 


LDA A 

NBRLO 

LOAD DATA BYTE 

F 6 A 1 

FE 

7 0 B 8 


LDX 

MEMADR 

LOAD ADDRESS 

F 6 A 4 

A 7 

00 


STA A 

X 

STORE DATA 


F 6 A 6 

08 

* INCREMENT ADDRESS IN 

* 

♦SUCCESSIVE LOCATIONS 

I NX 

CASE USER WANTS TO INDIVIDUALLY 

SET SEVERAL 

F 6 A 7 

20 EB 

BRA SET2 



F 6 A 9 

FE 

7 0 0 A 

•END OF LINE 

SET 4 LDX 

- WAS IT 

SYNPTR 

TERMINATED WITH A LINE FEED? 

POINT TO END OF LINE 

F 6 AC 

A 6 

00 

LDA 

A 

X 

GET CHAR THERE 

F 6 A E 

8 1 

0A 

CMP 

A 

#LF 

LINE FEED? 

F 6 B 0 

2 6 

6 B 

BNE 


SET 1 2 

IF NOT, BACK TO PROMPT 

F 6 B 2 

CE 

7 0 B 8 

LDX 


#MEMADR 

YES, GET NEXT ADDRESS TO BE SET 

F 6 B 5 

BD 

FC0 4 

J SR 


OUT 2 BY 

TYPE IT 

F 6 B 8 

BD 

FBF 1 

J SR 


OUTS P 

AND A SPACE 

F6 BB 

BD 

FD8C 

J SR 


GETLIN 

GET A NEW LINE 

F6 BE 

FE 

7 0 2 C 

LDX 


BUFBEG 

GET BUFFER BEGINNING 

F 6 C 1 

FF 

7 0 0 A 

STX 


SYNPTR 

EQUATE IT TO SYNTAX SCAN POINTER 

F 6 C 4 

20 

DI 

BRA 


SET 3 

GO PICK UP DATA 




* LOOK 

FOR 

(REG 

f I STER 

NAME, REGISTER VALUE) PAIRS 

F 6 C 6 

8 6 

05 SETS 

LDA 

A 

#5 


F 6 C 8 

BD 

F 9 C 7 

J SR 


COMAND 

PICK UP A REGISTER NAME 

F6CB 

2 B 

4 D 

BMI 


SET 1 1 

ERROR IF UNRECOGNIZABLE 

F 6 CD 

2 7 

4 E 

BEQ 


SET 1 2 

DONE 1F END OF LINE 

F6CF 

3 6 


PSH 

A 


SAVE REGISTER NAME(NUMBER) 

F 6 DO 

BD 

F B 4 7 

J SR 


NUMBER 

GET NEW REGISTER VALUE 

F 6 D 3 

3 2 


PUL 

A 


RESTORE REGISTER NAME(NUMBER) 

F6D4 

2 F 

44 

BLE 


SET1 1 

GOT GOOD REGISTER VALUE? 

F 6 D 6 

FE 

7 00 6 

LDX 


SP 

YES, POINT TO TOP OF STACK 

F6D9 

F 6 

70 14 

LDA 

B 

NBRLO 

GET REGISTER VALUE 





•CONDITION 

CODES 

F 6 DC 

8 1 

0 1 

CMP 

A 

#1 

F6DE 

26 

04 

BNE 


SET 6 

F 6 E 0 

E 7 

0 1 

STA 

B 

1 ,x 

F 6 E 2 

20 

E 2 

BRA 


SETS 


* ACCB 


28 



F6E4 

8 I 

02 

SET6 

CMP 

A 

#2 

F6E6 

26 

04 


BNE 


SET 7 

F 6 E 8 

E 7 

02 


STA 

B 

2 ,X 

F6EA 

20 

DA 


BRA 


SET 5 


F 6 EC 

8 1 

03 

*ACCA 

SET7 CMP 

A 

#3 

F6EE 

2 6 

04 

BNE 


SET8 

F6 F0 

E 7 

0 3 

STA 

B 

3 ,X 

F 6 F 2 

20 

D2 

BRA 


SET 5 




* IX 







F6F4 

8 1 

04 SET8 

CMP 

A 

#4 




F 6 F 6 

26 

09 

BNE 


SET9 




F 6 F 8 

B 6 

70 13 

LDA 

A 

NBRHI 




F6FB 

A 7 

04 

STA 

A 

4 , X 

UPDATE 

H 1 

BYTE 

F6 FD 

E 7 

05 

STA 

B 

5 ,X 

UPDATE 

LO 

BYTE 

F6FF 

20 

C 5 

BRA 


SET 5 







* PC 







F 7 0 1 

8 1 

05 SET9 

CMP 

A 

#5 




F 7 0 3 

26 

09 

BNE 


SET 1 0 




F 7 0 5 

B 6 

70 13 

LDA 

A 

NBRHI 




F 7 0 8 

A 7 

06 

STA 

A 

6 ,X 

UPDATE 

H I 

BYTE 

F 7 0 A 

E 7 

07 

STA 

B 

7 ,X 

UPDATE 

LO 

BYTE 

F70C 

20 

B 8 

BRA 


SET 5 





F70E 

8 1 

*SP 

06 SET10 

CMP A 

#6 


F 7 1 0 

2 6 

0 8 

BNE 

SET 1 1 


F 7 1 2 

FE 

70 13 

LDX 

NBRHI 

DON'T NEED IX TO SET SP 

F 7 1 5 

FF 

7 0 0 6 

STX 

SP 


F 7 1 8 

20 

AC 

BRA 

SETS 



F 7 1 A 

7 E 

F4 5 7 

SET 1 1 

JMP 

BADSYN 



F 7 1 D 

7 E 

F46F 

SET 1 2 

JMP 

NOMORE 






****** 








•VERIFY - CHECKSUM VERI 

FY A BLOCK OF 

MEMORY 

F 7 2 0 

BD 

FA FC 

VERIFY 

JSR 

GTRANG 

GET A NUMBER 

RANGE 

F 7 2 3 

2 7 

1 B 


BEQ 

VERIFI 

NO MODIFIER MEANS CHECK WHAT WE 




* 



HAVE 


F7 2 5 

2 B 

F 3 


BMI 

SET! 1 

ANYTHING ELSE 

IS ILLEGAL 




* GOOD 

RANGE 

GIVEN, TRANSFER IT TO CHECKSUM ADDRESSES 

F7 2 7 

FE 

70 15 


LDX 

RANGLO 



F 7 2 A 

FF 

70 1 B 


STX 

VERFRM 



F 7 2 D 

FE 

70 17 


LDX 

RANGHI 



F 7 3 0 

FF 

70 ID 


STX 

VERTO 




F 7 3 3 

8 D 

22 

BSR 

CKSUM 

COMPUTE CHECKSUM 

F 7 3 5 

B 7 

70 1 F 

STA A 

CHKSUM 

SAVE IT 

F738 

CE 

70 1 F 

LDX 

#CHKSUM 

TYPE THE CHECKSUM 

F 7 3 B 

BD 

FBFD 

JSR 

OUT 1 BY 



29 



F7 3 E 

2 0 

DD 

BRA 

SET 1 2 






* NO MODI FIER 

GIVEN - 

JUST VERIFY CHECKSUM 

F 7 4 0 

8 D 

1 5 

VERIF1 BSR 

CKSUM 

COMPUTE 

CHECKSUM 

F 7 4 2 

B 1 

7 0 1 F 

CMP A 

CHKSUM 

SAME AS 

STORED CHECKSUM? 

F7 4 5 

2 6 

0 8 

BNE 

VERI F 2 







* THEY VERIFY 

- SAY SO 

F7 4 7 

CE 

FF 1 F 

LDX 

#MSGV ER 

F7 4 A 

BD 

FE4 B 

J SR 

OUT STR 

F 7 4 D 

2 0 

CE 

BRA 

SET 1 2 





* THEY DON'T 

- SAY SO 

F7 4 F 

CE 

F F 2 2 

VERIF2 LDX 

#MSGNV E 

F7 5 2 

BD 

F E 4 B 

J SR 

OUT STR 

F7 5 5 

2 0 

C 6 

BRA 

SET 1 2 





♦COMPUTE THE 

CHECKSUM 

FROM ADDRESSES VERFRM TO 

VERTO 




♦ RETURN 

[ THE < 

CHECKSUM I 

IN ACCA 


F7 5 7 

4 F 


CKSUM 

CLR 

A 


INIT CHECKSUM TO ZERO 


F7 5 8 

FE 

7 0 1 B 


LDX 


VERFRM 

GET FIRST ADDRESS 


F7 5 B 

0 9 



DEX 



INIT TO ONE LESS 


F 7 5 C 

0 8 


CKSUM1 

I NX 



START OF CHECKSUM LOOP 


F 7 5 D 

AB 

00 


ADD 

A 

X 

UPDATE CHECKSUM IN ACCA 

WITH 




* 




BYTE POINTED TO 


F7 5 F 

BC 

7 0 1 D 


CPX 


VERTO 

HIT END OF RANGE? 


F7 6 2 

2 6 

F 8 


BNE 


CKSUM1 

IF NOT, LOOP BACK 


F7 64 

4 3 



COM 

A 


COMPLEMENT THE SUM 


F7 6 5 

3 9 



RTS 



RETURN WITH IT 



****** 


♦SEARCH - SEARCH MEMORY FOR A BYTE STRING 


♦GLOBAL VARIABLES USED 

♦LINPTR - INPUT LINE CHARACTER POINTER 

♦LISPTR - COMMAND LIST CHARACTER POINTER 

♦RANGLO - "SEARCH FROM" ADDRESS 

♦RANGHI - "SEARCH TO" ADDRESS 


♦LOCAL VARIABLES USED 

♦MEMADR - STARTING MEMORY ADDRESS WHERE A MATCH 
* OCCURRED 

ADDRESS POINTER USED TO FILL BYTSTR AND 
SUBSTR BUFFERS 

NUMBER OF BYTES IN BYTE STRING 
NUMBER OF CHARS THAT MATCH SO FAR IN THE 
MATCHING PROCESS 

STARTING ADDRESS OF 6 CHARACTER BYTE STRING 
BUFFER 


♦BYTPTR 
♦ 

♦NBYTES 
♦NBRMAT 
* 

♦BYTSTR 


♦THE SEARCH STRING OCCUPIES TEMP4, TEMP5. & TEMP6 (6 
* BYTES MAX) 
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F7 6 6 

BD 

FA FC 

♦GET SEARCH 

SEARCH J SR 

RANGE BEGINNING 

GTRANG 

(RANGLO) & END (RANGHI) 

F7 6 9 

2 F 

1C 

BLE 

SEARC9 ABORT 

IF NO PAIR 


F7 6 B 

CE 

7 0 B E 

* INITIALIZE 

LDX 

BYTE STRING 
#BYTSTR 

POINTER 

GET START OF BYTE STRING TO 

F 7 6 E 

FF 

7 0 BA 

* 

STX 

BYTPTR 

SEARCH FOR 

SET POINTER TO IT 


F 7 7 1 

7 F 

7 0 BC 

CLR 

NBYTES 

ZERO # 

OF BYTES 

IN BYTE STRING 




* GET A BYTE 

STRING 




F7 7 4 

BD 

F B 4 7 

S EARC 1 JSR 

NUMBER 

GET A 

BYTE 


F7 7 7 

2 7 

1 A 

BEQ 

SEARC2 

BEGIN 

SEARCH IF 

EOL 

F7 7 9 

2D 

6 C 

BLT 

SEARC9 








♦GOOD BYTE, ADD IT TO 

STRING 

F7 7 B 

1C 

7 0 BC 

INC 

NBYTES 

COUNT THIS BYTE 




♦DON'T ACCEPT 

OVER 6 

BYTES 

F 7 7 E 

B 6 

7 0 BC 

LDA A 

NBYTES 


F 7 8 1 

8 1 

06 

CMP A 

#6 


F 7 8 3 

2 E 

6 2 

BGT 

SEARC9 



F 7 8 5 

B 6 

70 14 


LDA A 

NBRLO 

GET (LOW ORDER) BYTE 

F 7 8 8 

FE 

7 0 BA 


LDX 

BYTPTR 

GET BYTE POINTER 

F 7 8 B 

A 7 

00 


STA A 

X 

SAVE BYTE 

F 7 8 D 

08 



I NX 


MOVE BYTE POINTER TO NEXT 




* 



LOCATION IN STRING 

F 7 8 E 

FF 

7 0 BA 


STX 

BYTPTR 

SAVE IT 

F 7 9 1 

20 

E 1 


BRA 

SEARC 1 





♦ BEG IN 

SEARCH FOR BYTE 

STRING 




* is # 

OF BYTES TO LOOK 

FOR >0 

F 7 9 3 

7 D 

7 0 BC 

S EARC 2 

T ST 

NBYTES 


F7 9 6 

2 7 

4 F 


BEQ 

SEARC9 

IF NOT, BAD SYNTAX 




♦MAKE 

USE OF 

INPUT LINE CHARACTER FETCH & COMMAND LIST 




* 



CHAR FETCH ROUTINES 




* INITIALIZE 

MEMORY POINTER TO START OF SEARCH RANGE 

F 7 9 8 

FE 

7 0 15 


LDX 

RANGLO 


F 7 9 B 

09 



DEX 



F 7 9 C 

FF 

7 00C 


STX 

LINPTR 





♦INITIALIZE 

BYTE POINTER TO START OF BYTE STRING 

F7 9 F 

CE 

7 0 BD 

SEARC3 

LDX 

§BYTSTR - 

1 

F 7 A 2 

FF 

70D7 


STX 

L I SPTR 


F 7 A 5 

7 F 

7 0 BD 


CLR 

NBRMAT 

SET "NUMBER OF BYTES THAT 
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* MATCHED" TO ZERO 

•GET BYTE FROM BYTE STRING & RETURN IT IN ACCA 


F 7 A 8 

BD 

FCCD 


J SR 

GETLST 







♦GET BYTE 

FROM MEMORY 

RANGE & 

RETURN IT IN ACCB 

F 7 A B 

BD 

FCC 0 

SEARC4 

JSR 

GETCHR 




F 7 A E 

1 1 



CBA 


COMPARE 

MEMORY & BYTE 

STRING 




* 



CHARACTERS 


F 7 A F 

2 7 

07 


BEQ 

SEARC5 

IF NO MATCH, TEST FOR 

RANGE END 

F 7 B 1 

BC 

7 0 17 


CPX 

RANGHI 

HAVE WE 

REACHED THE RANGE 




♦ 



SEARCH 

UPPER LIMIT? 


F7B4 

2 7 

34 


BEQ 

S EAR 10 

YES, GO 

PROMPT FOR NEXT COMMAND 

F 7 B 6 

20 

F 3 


BRA 

SEARC4 








♦MATCH 

ACHIEVED - SAVE ADDRESS OF MATCH 

F 7 B 8 

FF 

7 0 B 8 

SEARC5 

STX 

MEMADR 


F7 BB 

1C 

7 0 BD 

SEARC6 

INC 

NBRMAT 

BUMP NUMBER MATCHED 

F7 BE 

B 6 

7 0 BD 


LDA A 

NBRMAT 


F 7 C 1 

B 1 

7 0 BC 


CMP A 

NBYTES 

HAVE ALL CHARACTERS MATCHED? 

F7C4 

2 7 

1 6 


BEQ 

SEARC8 

IF SO, MATCH ACHIEVED 




♦HAVEN' 

T MATCHED ALL 

YET, GO GET NEXT PAIR EVEN IF 




* 



PAST "SEARCH TO" ADDRESS 

F 7 C 6 

BD 

FCCD 


JSR 

GETLST 


F 7 C 9 

BD 

FCC 0 


JSR 

GETCHR 


F7CC 

1 1 



CBA 



F 7 CD 

2 7 

EC 


BEQ 

SEARC6 





•MISMATCH ON 

SOME BYTE PAST THE FIRST ONE 




♦RESET 

THE MEMORY POINTER TO GET NEXT UNTESTED MEMORY 




* 



LOCATION 

F7CF 

FE 

7 0 B 8 

SEARC7 

LDX 

MEMADR 





•THIS TEST HANDLES SPECIAL CASE OF A MATCH ON RANGE END 

F7D2 

BC 

70 17 


CPX 

RANGHI 


F7D5 

27 

1 3 


BEQ 

S EAR 1 0 


F 7 D 7 

FF 

7 0 0 C 


STX 

LINPTR 





•GO RESET THE 

BYTE STRING POINTER 

F 7 DA 

20 

C 3 


BRA 

SEARC3 





♦MATCH 

ON BYTE STRING 

ACHIEVED, TYPE OUT MEMORY ADDRESS 

F 7 DC 

CE 

7 0 B 8 

SEARC8 

LDX 

#MEMADR 


F7DF 

BD 

FC0 4 


JSR 

OUT 2 BY 


F 7 E 2 

BD 

FBF 1 


JSR 

OUTS P 

AND A SPACE 




♦ASSUME 

A MISMATCH (I 

.E., RESET MEMORY & BYTE STRING 




* 



POINTERS & CONTINUE 

F 7 E 5 

20 

E 8 


BRA 

SEARC7 


F 7 E 7 

7 E 

F4 5 7 

SEARC9 

JMP 

BADSYN 


F7EA 

7 E 

F46F 

S EAR 10 

JMP 

NOMORE 





****** 







♦TEST - 

TEST 

RAM FOR 

BAD BYTES 




♦GET AN 

ADDRESS RANGE 


F 7 ED 

BD 

FA FC 

TEST 

JSR 

GTRANG 
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F7F0 2 F F 5 BLE SEARC9 ABORT IF NO PAIR 


* RANGLO HOLDS STARTING ADDRESS OF RANGE 

* RANGHI HOLDS ENDING ADDRESS OF RANGE 


F 7 F 2 

FE 

70 15 

LDX RANGLO 

F 7 F 5 

FF 

7 0 B 8 

STX MEMADR 

♦GET BYTE STORED AT TEST LOCATION & SAVE IT 

F 7 F 8 

A 6 

00 

TEST1 LDA A X 

F7 FA 

3 6 


PSH A 


F7 FB 

6 F 

00 

CLR 

X 

ZERO THE LOCATION 

F7FD 

6 D 

00 

TST 

X 

TEST IT 

F7 FF 

2 7 

0 5 

BEQ 

TEST2 

OK IF = ZERO 





* CAN ' T CLEAR 

LOCATION 

F 8 0 1 

CE 

F F 3 2 

LDX 

#MSGCCL 

F 8 0 4 

20 

1 E 

BRA 

TEST 4 


F 8 0 6 

6 A 

00 

T E ST 2 DEC 


X 

SET 

LOCATION TO FF 

F 8 0 8 

8 6 

FF 

LDA 

A 

#$FF 



F 8 0 A 

A 1 

00 

CMP 

A 

X 

DID 

IT GET SET TO FF? 

F80C 

27 

0 5 

BEQ 


TEST 3 






♦CAN'T SET 

LOCATION TO ONE'S 

F 8 0 E 

CE 

FF3D LDX 

#MSGCSO 

F 8 1 1 

20 

1 1 BRA 

TEST 4 


F 8 1 3 

F 8 1 6 

FE 

3 2 

7 0 B 8 TEST3 

LDX 

PUL 

A 

MEMADR 

GET LOCrt 

T ION 

BEING TESTED 

F 8 1 7 

A 7 

00 

STA 

A 

X 

RESTORE 

PREV 1 

IOUS CONTENT 





♦HIT END OF 

TEST RANGE? 

F 8 1 9 

BC 

7 0 17 

CPX 

RANGHI 

F 8 1C 

27 

cc 

BEQ 

SEAR 10 YES, ALL DONE 


F 8 1 E 

08 


♦NO, MOVE TO TEST NEXT LOCATION 

I NX 

F 8 1 F 

FF 

7 0 B 8 

STX MEMADR 

F8 22 

20 

D4 

BRA TEST 1 





♦♦LOCATION 

I S BAD 



F 8 2 4 

FF 

7 0 BC 

TEST4 STX 

TEMP3 

SAVE ERROR MESSAGE TEMPORAR 

F 8 2 7 

CE 

7 0 B 8 

LDX 

#MEMADR 



F 8 2 A 

BD 

FC0 4 

J SR 

OUT 2 BY 

TYPE OUT 

BAD ADDRESS, 

F 8 2 D 

BD 

FBF7 

J SR 

OUTEQ 

AN EQUAL 

SIGN, 

F8 30 

FE 

7 0 B 8 

LDX 

MEMADR 



F 8 3 3 

BD 

FBFD 

J SR 

OUT 1 BY 

ITS CONTENT, 

F 8 3 6 

BD 

FB F 1 

J SR 

OUTS P 

A SPACE, 
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F 8 3 9 

FE 

7 0 BC 


LDX 


TEMP 3 


F 8 3 C 

BD 

FE4B 


J SR 


OUTSTR 

AND THE TYPE OF ERROR 

F8 3 F 

BD 

F EC 7 


J SR 


DOCRLF 

SEND CR-LF 

F 8 4 2 

20 

CF 


BRA 


TEST3 





***** % 








* I NT - 

SET 

UP 

INTERRUPT POINTER 

F 8 4 4 

BD 

FB3C 

INT 

JSR 


NUMINX 

GET POINTER IN IX 

F8 4 7 

FF 

7 0 0 0 


STX 


I NTV EC 

SAVE IT 

F8 4 A 

2 0 

2 C 


BRA 


COMPA 1 





****** 








* NM I - 

SET 

UP 

NON-MASKABLE INTERRUPT POINTER 

F 8 4 C 

BD 

FB3C 

NMI 

JSR 


NUMINX 

GET POINTER IN IX 

F8 4 F 

FF 

7 0 0 2 


STX 


NMIVEC 

SAVE IT 

F 8 5 2 

20 

24 


BRA 


COMPA 1 





****** 








*SWI - 

SET 

UP 

SWI POINTER 

F8 54 

BD 

FB3C 

SWI 

JSR 


NUMINX 

GET POINTER IN IX 

F8 5 7 

FF 

7 0 04 


STX 


SWI VEC 

SAVE IT 

F 8 5 A 

20 

1C 


BRA 


COMPA 1 





****** 








* COMPARE - 

OUTPUT SUM 

& DIFFERENCE OF TWO INPUT 

F 8 5 C 

BD 

FB3C 

COMPAR 

JSR 


NUMINX 

GET FIRST NUMBER 

F8 5 F 

FF 

70 15 


STX 


RANGLO 

PUT IT IN RANGLO 

F8 62 

BD 

FB3C 


JSR 


NUMINX 

GET SECOND NUMBER 

F8 6 5 

FF 

7 0 13 


STX 


NBRHI 

SAVE IT IN NBRHI 




* COMPUTE AND 

OUTPUT THE SUM 

F 8 6 8 

BD 

FAD 6 


JSR 


SUMNUM 

COMPUTE SUM 

F8 6 B 

CE 

FF4E 


LDX 


#MSGSIS 

GET ITS TITLE 

F8 6 E 

8 D 

0 B 


BSR 


OUTSD 

OUTPUT TITLE & SUM 

F8 7 0 

BD 

FA E 9 


JSR 


DIFNUM 

COMPUTE DIFFERENCE 

F8 7 3 

CE 

F F 5 6 


LDX 


jfMSGD I S 

GET ITS TITLE 

F8 7 6 

8 D 

03 


BSR 


OUTSD 

OUTPUT TITLE & DIFFERENCE 

F8 7 8 

7 E 

F4 6 F 

COMPA1 

JMP 


NOMORE 





* COMPUTE AND 

OUTPUT THE RESULT 

F8 7 B 

BD 

FE4B 

OUTSD 

JSR 


OUTSTR 

OUTPUT IT 

F8 7 E 

CE 

70 17 


LDX 


§ RANGH1 

GET RESULT 

F 8 8 1 

BD 

FC0 4 


JSR 


OUT 2 BY 

DISPLAY RESULT 

F8 8 4 

3 9 



RTS 





NUMBERS 


****** 

* DUMP 

* 


DUMP PORTION OF MEMORY, IN MIKBUG FORMAT, 
A SPECIFIED ACIA ADDRESS 


TO 
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♦GET 

ADDRESS 

RANGE: 

START IN RANGLO (2 BYTES), 

END IN 

* 



RANGHI 

(2 BYTES) 


♦ I F 

NO ADDRESS RANGE 

IS GIVEN, 

USE WHATEVER IS 

IN 

* 



RANGLO 

& RANGHI 


F 8 8 5 BD FA FC DUMP 

J SR 

GTRANG 





F 8 8 8 

7 F 

7 0CO 


CLR 

TEMP5 

INITIALIZE TO DUMP TO TERMINAL 




♦ LOOK 

FOR A " 

TO" MODIFIER 

F8 8 B 

86 

02 

DUMP I 

LDA A 

#2 


F 8 8 D 

BD 

F 9 C 7 


J SR 

COMAND 


F 8 9 0 

2 7 

1 3 


BEQ 

DUMP 4 


F 8 9 2 

2 F 

1C 

DUMP 2 

BLE 

DUMP 1 0 

ERROR IF BAD SYNTAX 

F8 94 

8 1 

0 1 


CMP A 

#1 

TO? 

F 8 9 6 

2 7 

02 


BEQ 

DUMP 3 


F 8 9 8 

20 

F 1 


BRA 

DUMP 1 

GO LOOK FOR ANOTHER MODIFIER 


F 8 9 A 

BD 

FB3C DUMP 3 

J SR 

NUMINX 

GET "TO" 

ADDRESS 

F 8 9 D 

FF 

7 0 2 7 

STX 

OUTADR 

SAVE IT 


F 8 AO 

1C 

7 0C0 

INC 

TEMPS 

REMEMBER 

THIS 

F 8 A 3 

20 

E 6 

BRA 

DUMP 1 

GO LOOK 

FOR ANOTHER MODIFIER 


F 8 A 5 

7 D 

7 0C0 

DUMP4 

TST 

TEMPS 


F 8 A 8 

2 7 

03 


BEQ 

DUMPS 


F8AA 

1C 

7 0 2 6 


INC 

OUTFLG 

SET FLAG FOR PROPER OUTPUT 




* 



DEVICE 

F8AD 

8 D 

64 

DUMP 5 

BSR 

NULLS 

SEND SOME NULLS 





♦MIKBUG MODE 

♦OUTPUT AN "SO" TYPE RECORD 

F8AF 

CE 

F F 6 0 

LDX #MSGS0 

F 8 B 2 

BD 

FE4B 

J SR OUTSTR 





♦COMPUTE # OF 

BYTES TO 

OUTPUT (RANGE END - RANGE START 




* 


+ 

1 ) 




♦SUBTRACT LO 

BYTES 



F 8 B 5 

B 6 

7 0 18 

DUMP 6 LDA A 

RANGHI+1 



F 8 B 8 

B0 

70 16 

SUB A 

RANGLO+1 






♦SUBTRACT HI 

BYTES 



F8 BB 

F 6 

70 17 

LDA B 

RANGHI 



F8 BE 

F 2 

70 15 

SBC B 

RANGLO 






♦NON - ZERO HI 

BYTE IMPLI 

ES 

LOTS TO OUTPUT 

F 8 C 1 

26 

04 

BNE 

DUMP 7 






♦HI BYTE DIFF 

IS ZERO 



F 8 C 3 

8 1 

1 0 

CMP A 

#16 

LO 

BYTE OF DIFF 0 TO 15 

F 8 C 5 

25 

02 

BCS 

DUMP 8 

I F 

YES, TO DUMP8 

F8C7 

86 

OF 

DUMP7 LDA A 

#15 

NO, 

LO BYTE IS 16-255: SET 




* 


BYTES TO 15 




♦TO GET FRAME 

COUNT, ADD 1 

(DIFF OF 0 IMPLIES 1 




* 


OUTPUT) + # OF DATA BYTES, 




* + 2 ADDR BYTES + 1 CHECKSUM BYTE 

F8C9 

8 B 

04 

DUMP8 ADD A 

#4 
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F8CB 

B 7 

7 0 BC 

STA A 

TEMP 3 

TEMP 3 

IS THE FRAME COUNT 

F8CE 

80 

03 

SUB A 

#3 



F 8 DO 

B 7 

7 0 B E 

STA A 

TEMP4 

TEMP4 

IS THE RECORD BYTE COUNT 




‘OUTPUT A M1KBUG "SI" 

HEADER 

DATA RECORD 

F 8 D 3 

CE 

F F 7 4 

LDX 

#MSGS1 



F8D6 

BD 

FE4B 

J SR 

OUTSTR 



F8D9 

5 F 


CLR B 


ZERO 

CHECKSUM 




* PUNCH FRAME 

COUNT 



F 8 DA 

CE 

7 0 BC 

LDX 

#TEMP3 



F8DD 

8 D 

3 E 

BSR 

OUTP2 







* PUNCH ADDRESS 


F8DF 

CE 

7 0 15 

LDX 

#RANG LO 

F 8 E 2 

8 D 

3 9 

BSR 

OUT P 2 

F 8 E 4 

8 D 

3 7 

BSR 

OUT P 2 


F 8 E 6 

FE 

7 0 15 

* OUT PUT DATA 

LDX 

RANGLO 


F 8 E 9 

8 D 

3 2 

DUMP 9 BSR 

OUT P 2 

OUTPUT DATA BYTE 

F8 EB 

7 A 

7 0 B E 

DEC 

TEMP4 

DEC BYTE COUNT 

F8 EE 

2 6 

F 9 

BNE 

DUMP 9 






♦COMPLEMENT 


AND PUNCH 

THE CHECKSUM 

F8 F0 

FF 

7 0 15 

STX 


RANGLO 

SAVE MEMORY POINTER 

F 8 F 3 

5 3 


COM 

B 


COMPLEMENT CHECKSUM 

F 8 F 4 

3 7 


PSH 

B 


PUT IT ON STACK 

F 8 F 5 

30 


TSX 



LET IX POINT TO IT 

F 8 F 6 

8 D 

2 5 

BSR 


OUT P 2 

OUTPUT CHECKSUM 

F 8 F 8 

3 3 


PUL 

B 


PULL IT OFF STACK 

F 8 F 9 

FE 

7 0 15 

LDX 


RANGLO 

RESTORE MEMORY POINTER 

F8 FC 

09 


DEX 




F8 FD 

BC 

7 0 17 

CPX 


RANGHI 

HIT END OF RANGE? 

F 9 0 0 

2 6 

B 3 

BNE 


DUMP 6 






♦YES , 

OUTPUT 

AN *S 9" 

RECORD 

F 9 0 2 

CE 

FF7B 


LDX 


#MSGS 9 



F9 0 5 

BD 

FE4B 


J SR 


OUTSTR 



F 9 0 8 

8 D 

09 


BSR 


NULLS 

GENERATE BLANK TAPE 

F9 0A 

7 F 

7 0 2 6 


CLR 


OUTFLG 

SET 

TO TERMINAL OUTPUT 

F9 0D 

7 E 

F 4 6 F 


JMP 


NOMORE 

ALL 

DONE 

F9 1 0 

7 E 

F4 5 7 

DUMP 10 

JMP 


BADSYN 

BAD 

SYNTAX 




* SEND 

A STRING OF NULLS 


F 9 1 3 

C 6 

1 E 

NULLS 

LDA 

B 

#30 



F 9 1 5 

4 F 



CLR 

A 




F 9 1 6 

BD 

FE 7 6 

NULLS 1 

JSR 


OUTCHR 



F 9 1 9 

5 A 



DEC 

B 




F 9 1 A 

2 6 

FA 


BNE 


NULLS 1 



F 9 1 C 

39 



RTS 






F 9 1 D 

EB 

00 

♦OUTPUT A BYTE POINTED 
OUTP2 ADD B X 

TO BY 

UPDATE 

IX AS 2 HEX CHARACTERS 
CHECKSUM 

F 9 1 F 

BD 

F B FD 

JSR OUT 1 BY 




36 



F 9 2 2 

08 


I NX 



F 9 2 3 

3 9 


RTS 

****** 






* LOAD - LOAD 

A MIKBUG 

TAPE 




* LOOK FOR A " 

FROM" MODIFIER 

F 9 2 4 

86 

07 

LOAD LDA A 

#7 

IN LIST 7 

F926 

BD 

F9C7 

J SR 

COMAND 


F 9 2 9 

2 B 

E 5 

BMI 

DUMP 1 0 

ERROR, UNRECOGNIZABLE MODIFIER 

F 9 2 B 

2 7 

09 

BEQ 

LOAD 1 


F 9 2 D 

BD 

FB3C 

J SR 

NUMI NX 

GET ''FROM" ADDRESS 

F 9 3 0 

FF 

7 0 2 4 

STX 

INPADR 

SAVE IT 

F9 3 3 

7C 

7 0 2 3 

INC 

INPFLG 

SET FLAG FOR NON-TERMINAL AC 1A 


F9 3 6 

BD 

F E 5 9 

♦KEEP READ 

LOAD 1 J SR 

ING 

CHARACTERS UNT 

INPCHR GET A 

IL AN "S" IS READ 

CHAR 

F 9 3 9 

8 1 

5 3 

CMP 

A 

# ' S I S IT 

AN S? 

F9 3 B 

26 

F 9 

BNE 


LOAD 1 






♦GOT AN "S", 

EXAMINE 

NEXT CHARACTER 

F9 3D 

BD 

F E 5 9 


J SR 

INPCHR 


F940 

8 1 

3 9 


CMP A 

# ' 9 

DONE IF ITS A "9" 

F 9 4 2 

2 7 

2 E 


BEQ 

LOAD4 


F 9 4 4 

8 1 

3 1 


CMP A 

#' 1 

IS IT A "1"? 

F 9 4 6 

26 

EE 


BNE 

LOAD 1 

IF NOT, LOOK FOR NEXT "S" 




*VALID 

SI RECORD 


F 9 4 8 

7 F 

7 0 E 1 


CLR 

CKSM 

CLEAR CHECKSUM 




♦READ 

RECORD 

BYTE COUNT 

F 9 4 B 

BD 

F 9 8 6 


J SR 

RDBYTE 


F 9 4 E 

80 

02 


SUB A 

#2 


F 9 5 0 

B 7 

7 0 E 0 


STA A 

BYTECT 

SAVE COUNT MINUS 2 ADDRESS BYT 


F 9 5 3 

8 D 

2 3 


BSR 

BLDADR 

BUILD ADDRESS 

F 9 5 5 

8 D 

2 F 

LOAD2 

B SR 

RDBYTE 

READ A DATA BYTE INTO ACCA 


F 9 5 7 

7 A 

7 0 E 0 

DEC 

BYTECT 

COUNT IT 

F 9 5 A 

2 7 

0 5 

BEQ 

LOAD 3 

IF DONE WITH RECORD, CHECK 



* 



CHECKSUM 

F 9 5 C 

A 7 

00 

STA A 

X 

NOT DONE, STORE BYTE IN MEMORY 

F 9 5 E 

08 


I NX 


ON TO NEXT MEMORY ADDRESS 

F 9 5 F 

20 

F 4 

BRA 

LOAD2 






♦RECORD READ 

IN COMPLETE 



F 9 6 1 

1C 

7 0 E 1 

LOAD 3 INC 

CKSM 

TEST CHECKSUM 

BY ADD] 

ING 1 

F 9 6 4 

2 7 

DO 

BEQ 

LOAD 1 

IF OK, RESULT 

SHOULD 

BE ZERO 




•RECORD CHECKSUM ERROR 




F966 

CE 

F F 2 2 

LDX 

#MSGNVE 

SAY SO 



F 9 6 9 

BD 

FE4B 

J SR 

OUTSTR 
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F 9 6 C 

CE 

7 0 B 8 

LDX 

#TEMP 1 

GET RECORD ADDRESS OF IT 

F9 6 F 

BD 

FC 0 4 

JSR 

OUT 2 BY 

TYPE IT TOO 

F 9 7 2 

7 F 

7023 LOAD4 

* 

CLR 

INPFLG 

RESET FLAG TO NORMAL TERMINAL 

INPUT 

F9 7 5 

7 E 

F4 6 F 

JMP 

NOMORE 






* BU I LD 

ADDRESS 



F9 7 8 

8 D 

OC 

BLDADR 

B SR 


RDBYTE 



F9 7 A 

B 7 

7 0 B 8 


STA 

A 

TEMP 1 



F 9 7 D 

8 D 

0 7 


B SR 


RDBYTE 



F9 7 F 

B 7 

7 0 B 9 


STA 

A 

TEMP 1 + 1 



F9 8 2 

FE 

7 0 B8 


LDX 


TEMP 1 



F9 8 5 

3 9 



RTS 





F 9 8 6 

8 D 

1 0 

RDBYTE 

BSR 


INHEX 

GET LEFT HEX 

DIGIT 




* MOV E 

TO HI 

4 

B ITS 



F9 8 8 

4 8 



ASL 

A 




F9 8 9 

4 8 



ASL 

A 




F9 8 A 

4 8 



ASL 

A 




F9 8 B 

4 8 



ASL 

A 




F 9 8 C 

1 6 



TAB 



SAVE IT IN ACCA 

F 9 8 D 

8 D 

09 


BSR 


INHEX 

GET RIGHT HEX 

DIGIT 

F9 8 F 

1 B 



ABA 



COMBINE THEM 

IN ACCA 




* UPDATE THE 

CHECKSUM 



F9 9 0 

1 6 



TAB 





F 9 9 1 

FB 

7 0 E 1 


ADD 

B 

CKSM 



F9 94 

F 7 

7 0E 1 


STA 

B 

CKSM 



F9 9 7 

3 9 



RTS 








* INPUT 

A HEX 

CHAR & CONVERT TO INTERNAL FORM 

F9 9 8 

BD 

F E 5 9 INHEX 

JSR 


INPCHR 

INPUT A CHAR 

F9 9 B 

8 0 

3 0 

SUB 

A 

#$30 


F 9 9 D 

2 B 

0 F 

BMI 


INH EX 2 

NOT HEX IF BELOW ASCII "1" 

F9 9 F 

8 1 

09 

CMP 

A 

#$09 


F 9 A 1 

2 F 

0A 

BLE 


INHEX 1 

OK IF ASCII "9" OR LESS 

F9 A3 

8 1 

1 1 

CMP 

A 

#$ 1 I 

BELOW ASCII 'A'? 

F 9 A 5 

2 B 

0 7 

BMI 


INHEX2 

ERROR IF IT IS 

F 9 A 7 

8 1 

1 6 

CMP 

A 

#$16 

OVER ASCII "F"? 

F 9 A 9 

2 E 

0 3 

BGT 


INHEX2 

ERROR IF IT IS 

F 9 A B 

8 0 

07 

SUB 

A 

#7 

CONV ASCII A-F TO HEX A-F 

F 9 AD 

3 9 

INH EX 1 

RTS 






* ERROR 

- CHAR 

NOT HEX, 

SAY SO 

F9 AE 

CE 

FF8B INHEX2 

LDX 


#MSGCNH 


F 9 B I 

BD 

FE4B 

JSR 


OUTSTR 


F 9 B 4 

3 9 


RTS 





****** 

* DELAY - DELAY SPECIFIED # OF MILLISECONDS 


F 9 B 5 

BD 

FB3C DELAY 

JSR 

NUMINX 

GET DELAY TIME 

F 9 B 8 

8 D 

0 3 

BSR 

T IMDEL 


F9 BA 

7 E 

F4 6 F 

JMP 

NOMORE 



* * * 

♦TIME DELAY SUBROUTINE 

♦IX IS INPUT AS THE # OF MILLISECONDS TO DELAY 
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F9 BD 

F 9 C 0 
F 9 C 1 


F 9 C 3 
F 9 C 4 
F 9 C 6 


•ACCA IS ALTERED 

* ACC B IS PRESERVED 

* AD J TIMCON SO (6 *TIMCON* CYCLE TIME=1 MS) 


B 6 

7 ODE 

TIMDEL 

* ENTER 

LDA 

A 6 

A TIMCON 

CYCLE LOOP 

4 A 


TIMDE1 

DEC 

A 

2 6 

FD 


BNE 

TIMDE1 


09 

DEX 


DECREMENT MILLISECOND COUNTER 

2 6 F 7 

BNE 

TIMDEL 


3 9 

RTS 




* COMMAND 
» 


LIST SCANNING R 

OUT I N E 


♦THIS ROUTINE SEEKS A MATCH OF THE CHARACTERS POINTED 

* AT 

* BY THE INPUT LINE SCANNING POINTER TO ONE OF THE 

* COMMANDS 
•IN A LIST SPECIFIED BY ACCA. 

•THE RESULT OF THE SCAN FOR A MATCH IS RETURNED IN 

* ACCA, 


* AS FOLLOWS: 


* ACCA=- 1 : THE MATCH WAS UNSUCCESSFUL. THE SYNTAX 

* POINTER (SYNPTR) WAS NOT UPDATED 

* (ADVANCED). 

* 


ACCA= 0: THE MATCH WAS UNSUCCESSFUL SINCE THERE 

WERE 

NO MORE CHARACTERS, I.E., THE END OF 
THE 

LINE WAS REACHED. 


* ACCA=+N: SUCCESSFUL MATCH. THE SYNTAX POINTER 

* WAS UPDATED 

* TO THE FIRST CHARACTER FOLLOWING THE 

* COMMAND 

* DELIMITER. ACCA HOLDS THE NUMBER OF 

* THE 

* COMMAND MATCHED. 

•GLOBAL VARIABLES FOR EXTERNAL COMMUNICATION 
•SYNPTR - GOOD SYNTAX INPUT LINE CHAR POINTER 
•LINPTR - INPUT LINE CHARACTER POINTER 
•DELIM - CLASS OF PERMISSIBLE COMMAND DELIMITERS 


•TEMPORARY 2 BYTE INTERNAL VARIABLES 
•LISPTR - COMMAND LIST CHARACTER POINTER 


•TEMPORARY 1 BYTE INTERNAL VARIABLES 
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* NUMMAT 

* L I SNUM 
♦COMNUM 


NUMBER OF CHARACTERS THAT SUCCESSFULLY MATCH 
# OF LIST WITHIN WHICH A MATCH WILL BE SOUGHT 
COMMAND NUMBER MATCHED 


♦CONSTANTS USED 

* CR - CARRIAGE RETURN 

* L F - LINE FEED 


♦ACCB & IX ARE NOT PRESERVED 


F 9 C 7 

B 7 

7 0 D 5 

COMAND STA A LISNUM 

SAVE LI 

1ST # 

TO MATCH WITHIN 




♦TEST IF WE ARE AT THE 

END OF 

THE 

LINE 

F9CA 

BD 

FA 6 9 

J SR SKPDLM 




F 9 CD 

24 

02 

BCC INILST 




F9CF 

4 F 


CLR A 




F 9 DO 

3 9 


RTS 








* INITIALIZE 

THE COMMAND LIST POINTER TO ONE LESS THAN 




* 


THE BEGINNING OF THE COMMAND LI 




* 


STS 

F9D I 

FE 

7 00 8 

INILST LDX 

COMADR 

ENTRY POINT 




♦MOVE TO THE 

BEGINNING 

OF THE DESIRED COMMAND LIST 

F9D4 

B 6 

70D5 

LDA A 

L I SNUM 

SEARCH FOR "STRING" # LISNUM 

F9D7 

C 6 

0A 

LDA B 

# L F 

USE LF AS A "STRING" TERMINATOR 

F9D9 

8 D 

7 6 

BSR 

FNDSTR 


F9DB 

FF 

7 0 D 7 

STX 

L I SPTR 






♦THE LIST POINTER, LISPTR, NOW POINTS TO ONE LESS THAN 




* 

THE FIRST CHARACTER 




♦OF THE FIRST 

COMMAND IN THE DESIRED LIST 




♦ INITIALIZE 

THE COMMAND # TO I 

F9DE 

8 6 

0 1 

LDA A 

#1 

F 9 E 0 

B 7 

70D6 

STA A 

COMNUM 





♦RESET 

INPUT LINE POINTER TO: 1) BEGINNING OF LINE, OR 




* 

TO 




* 2 ) 

POINT WHERE LAST SUCCESSFUL SCAN TERMINATED 

F 9 E 3 

FE 

7 0 0 A 

CMD 3 

LDX SYNPTR 

F 9 E 6 

FF 

7 0 0 C 


STX LINPTR 


F 9 E 9 

7 F 

7 0D4 

* 

CLR 

NUMMAT 

CLEAR NUMBER OF CHARACTERS 

MATCHED 

F9 EC 

BD 

FCC 0 

CMD4 

J SR 

GETCHR 

GET INPUT LINE CHAR IN ACCB 

F9 EF 

BD 

FA 9 4 


J SR 

TSTDLM 

TEST FOR A DELIMITER 

F 9 F 2 

2 6 

1 3 

* 

BNE 

MATCH 

SUCCESS (FOUND DELIMITER) IF 
NOT = ZERO 

F 9 F 4 

BD 

FCCD 


J SR 

GETLST 

GET COMMAND LIST CHAR IN ACC 
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F9F7 

F 9 F 9 
F9 FB 
F9 FD 


F9FF 
FAO 0 


FA 0 2 
FAO 5 


FAO 7 
FAO A 
FAO D 
FA 1 0 


FA i 1 
FA 1 4 


FA 1 6 
FA 1 9 


FA 1 B 
FA 1 E 
FA 2 0 
FA2 2 
FA2 4 
FA 2 6 
FA 2 9 


FA 2 B 
FA 2 C 
FA 2 D 


8 1 

OA 


CMP 

A 

# LF 

HAS END OF COMMAND 

L I ST 

BEEN 



* 




REACHED? 



27 

1 6 


BEQ 


NMATCH 

IF SO, POTENTIAL MATCH 

FA I LURE 

8 1 

OD 


CMP 

A 

#CR 

HAS END OF COMMAND 

BEEN 

REACHED? 

27 

1 2 


BEQ 


NMATCH 

IF SO, POTENTIAL MATCH 

FA I LURE 


1 1 


C BA 


COMPARE THE TWO CHARACTERS 

2 6 19 

* 

BNE 

NEXCOM 

MATCH NOT POSSIBLE ON THIS 

COMMAND 


7 C 

70D4 

* THEY MATCH, 

INC 

COMPARE 

NUMMAT 

THE SUCCEEDING CHARACTERS 

INC NUMBER OF CHARACTERS MATCHED 

20 

E 5 

BRA 

CMD4 





* * * * 







♦SUCCESSFUL 

MATCH - 

RETURN COMMAND 

NUMBER 

MATCHED IN 



* 


ACCA 



B 6 

70D6 

MATCH LDA 

A COMNUM 




FE 

7 0 0C 

LDX 

LINPTR 




FF 

7 0 0 A 

STX 

SYNPTR 

UPDATE GOOD 

SYNTAX 

POINTER 

39 


RTS 








* * * * 




♦NO MATCH 

♦DID AT LEAST 

ONE MATCH? 

7 D 

7 0D4 

NMATCH TST 

NUMMAT 

2 7 

0 5 

BEQ 

NEXCOM TO NEXT COMMAND IF NONE MATCHED 




♦AT LEAST ONE 

MATCHED 

- TEST FOR DELIMITER 



* 


(NON-MATCHING CHAR) 

BD 

FA9 4 

J SR 

TSTDLM 


2 6 

EC 

BNE 

MATCH 

IF A DELIMITER, MATCH HAS BEEN 



* 


ACHI EYED 



♦ILLEGAL DELIMITER 





♦MOVE TO NEXT 

COMMAND 

WITHIN LIST 

BD 

FCCD 

NEXCOM J SR 


GETLST 

GET NEXT COMMAND LIST CHARACTER 

8 1 

OA 

CMP 

A 

# L F 

END OF THIS LIST? 

2 7 

09 

BEQ 


MFA I L 

IF SO, NOTHING ON LIST MATCHED 

8 1 

OD 

CMP 

A 

#CR 

IS IT A CR? 

26 

F 5 

BNE 


NEXCOM 

IF NOT, MOVE TO NEXT CHARACTER 

1C 

7 0 D 6 

INC 


COMNUM 

YES, INC COMMAND NUMBER 

20 

B 8 

BRA 


CMD 3 




* * * * 

♦MATCH 

FAILURE - NO MATCH POSSIBLE WITHIN THIS LIST 

4 F 

MFA I L 

CLR A 

4 A 


DEC A 

3 9 


RTS 
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*-— 

♦THIS ROUTINE 

TYPES OUT 

COMMAND NUMBER "COMNUM" 




♦THE LIST 

IS 

SPEC IFI ED 

IN ACCA 




♦ACCB & IX 

ARE PRESERVED 

FA 2 E 

FF 

70CE 

TYPCMD STX 


XTEMP 


FA 3 1 

3 7 


PSH 

B 



FA 3 2 

CE 

FCD 6 

LDX 


#COMLST-1 

MOVE TO HEAD OF COMMAND 




* 



L I STS 

FA 3 5 

C 6 

OA 

LDA 

B 

# L F 

AND LIST TERMINATOR 

FA 3 7 

8 D 

I 8 

BSR 


FNDSTR 

GO TO HEAD OF DESIRED LIST 

FA 3 9 

B 6 

70D6 

LDA 

A 

COMNUM 

GET COMMAND NUMBER 

FA 3 C 

C 6 

OD 

LDA 

B 

#CR 

GET COMMAND TERMINATOR 

FA 3 E 

8 D 

1 1 

BSR 


FNDSTR 

GO TO HEAD OF DESIRED COMMAND 


FA4 0 

08 

TY PCM 1 

I NX 



MOVE TO NEXT CHARACTER 

FA4 1 

A 6 

00 

LDA 

A 

X 

GET A COMMAND CHARACTER 

FA4 3 

8 1 

OD 

CMP 

A 

#CR 

IS IT A COMMAND TERMINATOR? 

FA4 5 

2 7 

0 5 

BEQ 


TYPCM2 

IF SO, RETURN 

FA 4 7 

BD 

F E 7 6 

J SR 


OUTCHR 

NO, TYPE IT 

FA4 A 

20 

F 4 

BRA 


TY PCM 1 



FA4C 

FE 

7 OCE TYPCM2 LDX XTEMP 

FA 4 F 

3 3 

PUL B 

FASO 

3 9 

RTS 


♦MOVE TO BEGINNING OF DESIRED STRING NUMBER (IN ACCA) 
♦EACH STRING IS TERMINATED BY AN END OF STRING 

* CHARACTER (IN ACCB) 

♦THE INDEX REGISTER IS ASSUMED INITIALIZED POINTING TO 
♦ONE LESS THAN THE FIRST CHARACTER OF THE FIRST STRING 
♦ACCA, ACCB & IX ARE NOT PRESERVED 
♦LOCAL VARIABLES 

* STRNUM - STRING # TO FIND 

* EOSCHR - "END OF STRING" CHARACTER 


FA 5 I 

B 7 

7 0 BA 

FNDSTR 

STA 

A 

STRNUM 

SAVE STRING 

NUMBER 


FAS 4 

F 7 

7 0 B B 


STA 

B 

EOSCHR 

SAVE TERMINATOR 


FA 5 7 

5 F 



CLR 

B 





FA 5 8 

5 C 


FNDST1 

INC 

B 


STRING 1 IS 

THE F I 

RST STRING 

FAS 9 

F 1 

7 0 BA 


CMP 

B 

STRNUM 

IS THIS THE 

RIGHT 

STRING? 

FA 5 C 

2 7 

OA 


BEQ 


FNDST 3 

IF SO, DONE 







♦NO, 

SWALLOW 

UP CHARACTERS 

UNTIL AN END OF 

STRING 




* 




I S 

HIT 


FAS E 

0 8 


FNDST 2 I NX 



BUMP POINTER TO NEXT ONE 

FAS F 

A 6 

00 


LDA 

A 

X 

GET 

CHAR POINTED AT 


FA6 1 

B 1 

7 0 BB 


CMP 

A 

EOSCHR 

END 

OF STRING HIT? 


FA 6 4 

2 7 

F 2 


BEQ 


FNDST1 

I F 

IT IS, BUMP THE 

STR I NG 




* 




COUNTER 


FA 6 6 

20 

F 6 


BRA 


FNDST 2 

NO , 

MOVE ON TO NEXT 

CHAR 
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FA 6 8 3 9 


FNDST3 RTS 


IX SET PROPERLY, RETURN 


*SKIP LEADING DELIMITERS 

♦THIS ROUTINE SHOULD BE CALLED PRIOR TO SCANNING FOR 

* ANY INFORMATION 
♦ON THE INPUT LINE 

♦THE CURRENT CHARACTER IS IGNORED IF THE SCANNING 

* POINTER IS AT THE 

♦BEGINNING OF A LINE. IF NOT, THE SCANNING POINTER 

* SKIPS OVER SPACES 

♦AND COMMAS UNTIL AN END OF LINE OR NON-DELIMI TER IS 

* FOUND. 

♦THE CARRY BIT IS SET IF AN END OF LINE IS ENCOUNTERED. 





* ACCA, ACCB, 

& IX ARE 

NOT 

PRESERVED 

FA 6 9 

OC 


SKPDLM CLC 




FA 6 A 

7 D 

7 0 0 E 

TST 

BOLFLG 

AT 

BEGINNING OF LINE? 

FA 6 D 

2 E 

OB 

BGT 

SKPDL2 







♦LOOK AT CURRENT INPUT 

CHARACTER 

FA 6 F 

FE 

7-0 0 A 

SKPDL1 LDX 

SYNPTR 

GET POINTER TO IT 

FA 7 2 

A6 

00 

LDA 

A X 

GET CHAR 

FA 7 4 

8 D 

1 3 

BSR 

TSTEOL 

TEST FOR END OF LINE 

FA 7 6 

26 

02 

BNE 

SKPDL2 


FA 7 8 

OD 


SEC 


YES, END HIT, SET CARRY 

FA 7 9 

39 


RTS 






* H PEEK" AT 

NEXT CHAR IN LINE 

FA 7 A 

E 6 

0 1 

SKPDL2 LDA 

B 1 ,X 

GET IT 

FA7C 

8 D 

1 6 

BSR 

TSTDLM 

SEE IF ITS A DELIMITER 

FA 7 E 

26 

0 1 

BNE 

SKPDL3 


FA 8 0 

39 


RTS 


ITS NOT, RETURN 




* NEXT CHAR 

IS A DELIMITER 

FAS I 

BD 

FCC0 

SKPDL3 J SR 

GETCHR 

MOVE TO NEXT CHAR IN INPUT LINE 

FAS 4 

FF 

7 0 0 A 

STX 

SYNPTR 

UPDATE SYNTAX POINTER 

FAS 7 

20 

E 6 

BRA 

SKPDL1 

GO TEST FOR END OF LINE 





* 

= = = == 

= = = 

(i 

II 

n 

II 

II 

II 

it 

II 

II 

II 

II 

II 

II 

II 

II 

11 

II 

II 

II 

II 

II 

11 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

H 

II 

II 

II 




♦TEST 

FOR 

END 

-OF-LINE 

CHARACTER 




*Z BIT 

OF 

CC 

REG SET 

IF CHAR IN ACCA IS A TERMINATOR 




♦ACCA, 

ACCB , 

& IX ARE 

PRESERVED 

FAS 9 

8 1 

0D 

TSTEOL 

CMP 

A 

#CR 

CARRIAGE RETURN? 

FA 8 B 

2 7 

06 


BEQ 


TSTEOl 


FA 8 D 

8 I 

0A 


CMP 

A 

# lf 

LINE FEED? (CONTINUED LINES) 

FAS F 

27 

02 


BEQ 


TSTEO1 


FA 9 1 

8 i 

3 B 


CMP 

A 

#' ; 

FOR SEVERAL COMMANDS ON ONE LINE 

FA9 3 

3 9 


TSTEOl 

RTS 
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♦CHECK THE CHARACTER IN ACCB 

♦AGAINST THE DELIMI TER(S) SPECIFIED BY VARIABLE DEL1M 
♦ACCB & IX ARE PRESERVED 

♦ACCA IS SET TO 0 IF ACCB IS NOT A DELIMITER, TO I IF 

* I T I S 

* IF DEL!M=1, SPACE IS DELIMITER 

* IF DELIM=2, COMMA IS DELIMITER 

* IF DEL IM= 3 , SPACE OR COMMA IS DELIMITER 

* IF DELIM=4, ANY NON - ALPHANUMERIC IS A DELIMITER 





* TEST FOR 

END 

-OF-LINE 

(LOGICAL OR PHYSICAL) 

FA 9 4 

3 7 


TSTDLM PSH 

B 



FA 9 5 

1 7 


T BA 




FA 9 6 

8 D 

F 1 

BSR 


TSTEOL 


FA 9 8 

3 3 


PUL 

B 



FA 9 9 

2 7 

3 5 

BEQ 


DLMYES 


FA 9 B 

B 6 

7 0 0 F 

LDA 

A 

DEL IM 


FA 9 E 

8 1 

0 1 

CMP 

A 

#1 


FAAO 

2 6 

06 

BNE 


ISDLM2 


FAA 2 

C 1 

20 

CMP 

B 

#32 

WANT A SPACE - IS IT? 

FAA4 

2 6 

2D 

BNE 


DLMNO 


FAA6 

2 0 

2 8 

BRA 


DLMYES 



FAA 8 

8 1 

02 

1 SDLM2 

CMP 

A 

#2 


FAAA 

2 6 

06 


BNE 


I SDLM3 


FAAC 

C 1 

2 C 

TSTCMA 

CMP 

B 

# ' , 

WANT A COMMA - IS IT? 

FAA E 

2 6 

2 3 


BNE 


DLMNO 


FABO 

20 

1 E 


BRA 


DLMYES 


FA B 2 

8 1 

0 3 

[SDLM3 

' CMP 

A 

#3 


FA B 4 

2 6 

06 


BNE 


ISDLM4 


FA B 6 

C 1 

20 


CMP 

B 

#32 

WANT EITHER, IS IT A SPACE? 

FA B 8 

2 7 

1 6 


BEQ 


DLMYES 


FABA 

20 

F0 


BRA 


TSTCMA 

OR A COMMA? 

FA BC 

8 1 

04 

ISDLM4 

CMP 

A 

#4 


FABE 

2 6 

1 5 


BNE 


ERROR 

ERROR IF DELIM NOT 1-4 




* TEST 

I F CHAR 

IS 0 TO 

9 INCLUSIVE 

FACO 

Cl 

3 0 


CMP 

B 

# ’ o 


FAC 2 

2D 

OC 


BLT 


DLMYES 


FAC 4 

C 1 

39 


CMP 

B 

# ' 9 


FAC 6 

2 F 

0B 


BLE 


DLMNO 



FAC 8 

C ! 

4 1 

♦TEST 

IF CHAR 

CMP B 

I S A TO 9 INCLUSIVE 
# ' A 

FACA 

2D 

04 


BLT 

DLMYES 

FACC 

C 1 

5 A 


CMP B 

#' z 

FACE 

2 F 

03 


BLE 

DLMNO 




♦OVER 

Z - ITS 

A DELIMITER 




♦CHAR IN ACCB 

IS A DELIMITER 

FAD0 

8 6 0 1 

DLMYES LDA A 

# 1 

FAD2 

39 

RTS 
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FAD3 

FAD4 


FAD5 


FAD6 

FAD9 

FADC 


FADF 

FAE2 

FAE5 


FAE 8 


FAE 9 
FAEC 
FAEF 


FAF2 
FAF 5 
FAF8 


FAFB 


* CHAR IN ACCB IS NOT A DELIMITER 
4 F DLMNO CLR A 

3 9 RTS 


•ERROR IN SPECIFYING DELIMITER CLASS 
3 F ERROR SWI HAVE MONITOR TYPE OUT PERTINENT 

* STATISTICS 


•ADD THE 2 BYTE NUMBER STORED IN (RANGLO,RANGLO+I) TO 

* THE NUMBER 

* STORED IN (NBRHI,NBRLO) AND PUT THE RESULT IN 

* (RANGHI,RANGHI+I) 

•ACCB & IX ARE PRESERVED 

•ACCA IS ALTERED 


B 6 

70 16 

♦ADD LO ORDER 

SUMNUM LDA A 

BYTES 

RANGLO+1 

BB 

70 14 

ADD 

A 

NBRLO 

B 7 

70 18 

STA 

A 

RANGHI+1 




♦ADD HI ORDER 

BYTES 

B 6 

7 0 15 

LDA 

A 

RANGLO 

B 9 

70 13 

ADC 

A 

NBRH I 

B 7 

7 0 17 

STA 

A 

RANGHI 

3 9 


RTS 




•SUBTRACT THE 2 BYTE NUMBER STORED IN (NBRHI,NBRLO) 

* FROM THE 

•TWO BYTE NUMBER STORED IN (RANGLO,RANGLO+1) AND PUT 

* THE 
•RESULT IN (RANGHI,RANGHI+1) 

•ACCB & IX ARE PRESERVED 
•ACCA IS ALTERED 




♦SUBTRACT 

LO 

ORDER BYTES 

B 6 

70 16 

DIFNUM LDA 

A 

RANG LO+1 

B0 

70 14 

SUB 

A 

NBRLO 

B 7 

70 18 

STA 

A 

RANGHI+1 



♦SUBTRACT 

H I 

ORDER BYTES 

B 6 

70 15 

LDA 

A 

RANGLO 

B 2 

70 13 

SBC 

A 

NBRH I 

B 7 

70 17 

STA 

A 

RANGHI 

3 9 


RTS 
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♦THIS ROUTINE SCANS THE INPUT LINE FOR A PAIR OF 

* NUMBERS 

♦REPRESENTING AN ADDRESS RANGE. A COLON SEPARATING THE 
♦PAIR IMPLIES "THRU", WHILE AN "!" IMPLIES "THRU THE 

* FOLLOWING" 

* E.G. , 10 0:10 5 IS EQUIVALENT TO 1 0 0 ! 5 

♦A SINGLE NUMBER IMPLIES A RANGE OF 1 

* 

♦ON RETURN (RANGLO,RANGLOT 1 ) HOLDS THE RANGE START, AND 
* (RANGHI,RANGHI+1) HOLDS THE RANGE END 

♦ACCA, ACC B, & IX ARE NOT PRESERVED 


FAFC 

8 D 

4 9 

GT RANG BSR 

NUMBER 

PICK UP 

FIRST NUMBER 

FAFE 

2 E 

0 3 

BGT 

GTRAN1 



FB0 0 

2D 

0 9 

BLT 

GTRAN2 



FBO 2 

3 9 


RTS 


NOTH ING 

MORE ON INPUT 





♦GOOD SINGLE 

NUMBER - 

TRANSFER 

IT TO RANGLO 

FBO 3 

FE 

7 0 13 

GTRAN1 LDX 

NBRH I 



FBO 6 

FF 

70 15 

STX 

RANGLO 



FBO 9 

2 0 

OD 

BRA 

GTRAN 3 

AND TO 

RANGHI 


♦BAD NUMBER, BUT IS IT BAD DUE TO A OR "!" 

* DELIMITER? 

♦GET THE TERMINATOR FOR THE FIRST NUMBER 


FBO B 

FE 

7 0 0 C GTRAN2 

LDX 


LINPTR 




FB0E 

A 6 

00 

LDA 

A 

X 




FB 1 0 

8 l 

3 A 

CMP 

A 

# ' : 

WAS IT 

A COLON? 


FB 1 2 

2 6 

OC 

BN E 


GTRAN4 

IF NOT. 

. GO TEST FOR " 

! " 


FB 1 4 

8 D 

1 A 

* 

BSR 

GTRAN 8 

WAS ":", PROCESS F1RST 

GET NEXT ONE 

NUMBER 

FB 1 6 

2 F 

0 E 

* 

BLE 

GTRAN 5 

I LLEGAL I F END OF LINE 

NON-NUMERIC 

OR 


♦TRANSFER SECOND NUMBER TO RANGHI 


FB 1 8 

FE 

7 0 13 GTRAN 3 

LDX 

NBRH I 

FB 1 B 

FF 

7 0 17 

STX 

RANGHI 

FBI E 

20 

OD 

BRA 

GTRAN 7 


F B 2 0 

8 1 

2 1 

GTRAN 4 CMP A 

#' ! 

WAS DELIMITER A " ! " ? 

F B 2 2 

2 7 

0 3 

BEQ 

GTRAN 6 

IF YES, GET 2ND NUMBER 




♦ I LLEGAL DELIMITER, 

RETURN 

F B 2 4 

4 F 


CLR A 



F B 2 5 

4 A 


DEC A 



F B 2 6 

3 9 


GTRAN 5 RTS 




F B 2 7 

8 D 

0 7 

GTRAN 6 BSR 

GTRAN 8 

WAS 

PROCESS FIRST NUMBER & 

F B 2 9 

2 F 

FB 

* 

BLE 

GTRAN 5 

GET 

NEXT ONE 
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F B 2 B 8 D A 9 


BSR 


SUMNUM 


COMPUTE RANGE END, PUT INTO 
RANGHI 


•SUCCESSFUL EXIT 
FB2D 86 01 GTRAN7 LDA A #1 
FB2F 39 RTS 


•UPDATE SYNTAX POINTER, MOVE FIRST NUMBER TO RANGLO. & 
• GET 2ND NUMBER 


F B 3 0 

FF 

7 0 0 A GTRAN8 

STX 

SYNPTR 

UPDATE SYNTAX POINTER 

F B 3 3 

FE 

70 13 

LDX 

NBRH I 

GET FIRST NUMBER OF THE PAIR 

F B 3 6 

FF 

70 15 

STX 

RANGLO 

SAVE IT IN "LOW RANGE" VALUE 

FB3 9 

8 D 

OC 

BSR 

NUMBER 

PICK UP THE SECOND NUMBER OF 



* 



THE PAIR 

F B 3 B 

3 9 


RTS 




FB3C 

8 D 

09 

* 

* GET A 

NUMINX 

2 BYTE 

BSR 

NUMBER & RETURN IT IN THE INDEX REGISTER 
NUMBER 

F B 3 E 

2 E 

0 3 


BGT 

NUMIN1 

F B 4 0 

7 E 

F4 5 7 


JMP 

BADSYN 

F B 4 3 

FE 

70 13 

NUMIN1 

LDX 

NBRH I 

FB4 6 

3 9 



RTS 



* 


•SCAN FOR A NUMBER 

•RETURN THE MOST SIGNIFICANT BYTE IN NBRHI 
* AND THE LEAST SIGNIFICANT BYTE IN NBRLO 
•THE RESULT OF THE SCAN FOR A NUMBER IS RETURNED IN 
•ACCA AS FOLLOWS: 


ACCA=- 1 : THE MATCH WAS UNSUCCESSFUL. THE SYNTAX 
POINTER (SYNPTR) WAS NOT UPDATED. 

ACCA= 0: THE SCAN WAS UNSUCCESSFUL SINCE THERE 

WERE NO 

MORE CHARACTERS. (I.E., THE END OF THE 
LINE WAS ENCOUNTERED.) 

ACCA=+1: THE SCAN WAS SUCCESSFUL. THE SYNTAX 

POINTER 

WAS UPDATED TO THE FIRST CHARACTER 
FOLLOWING 
THE COMMAND. 


•IX IS PRESERVED 

•GLOBAL VARIABLES FOR EXTERNAL COMMUNICATION 
•NBRHI - NUMBER HI BYTE 
•NBRLO - NUMBER LO BYTE 

* IBCODE - INPUT BASE CODE 

* DBCODE - DISPLAY BASE CODE 


•LOCAL VARIABLES 

•NBR2X - USED IN DECIMAL CONVERSION 
* XT EMP 2 - SAVES IX 
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* INITIALIZE 


F B 4 7 

FF 

7 0 D 2 

NUMBER 

STX 

FB4A 

7 F 

70 13 


CLR 

FB4D 

7 F 

70 14 


CLR 




♦ INITI 

AL I Z 

F B 5 0 

FE 

7 0 0 A 


LDX 

FB 5 3 

FF 

7 0 0C 


STX 




♦ARE WE AT 

F B 5 6 

BD 

FA 6 9 


J SR 

F B 5 9 

24 

05 


BCC 

F B 5 B 

FE 

70D2 


LDX 

FB5E 

4 F 



CLR 

FB5 F 

3 9 



RTS 

F B 6 0 

BD 

FCCO 

NUMLUP 

J SR 




* 





♦TEST 

FOR - 

F B 6 3 

BD 

FA 9 4 


J SR 

F B 6 6 

2 6 

6 5 


BNE 




♦NOT A 

DEL 

FB68 

CO 

30 


SUB 

F B 6 A 

2 B 

6 D 


BMI 




♦DETERMINE 

FB6C 

B 6 

70 10 


LDA 

FB6F 

8 1 

0 I 


CMP 

F B 7 1 

2 7 

08 


BEQ 

FB 7 3 

8 1 

02 


CMP 

F B 7 5 

27 

1 E 


BEQ 

F B 7 7 

8 1 

0 3 


CMP 

F B 7 9 

2 7 

4 1 


BEQ 


BOTH BYTES 
XTEMP2 
NBRH I 
NBRLO 


SYNPTR 
L INPTR 


SKPDLM 

NUMLUP 

XTEMP2 


TO ZERO 
SAVE IX 


YES, ZERO ACCA 


GETCHR GET A CHARACTER FROM THE INPUT 
LINE INTO ACCB 


TSTDLM 

GUDNUM GOOD DELIMITER IF ACCA NON-ZERO 


# ' 0 SUBTRACT ASCI I 0 

CONERR ERROR IF LESS 


HEXNUM 


DECNUM 


OCTNUM 


* DEFAULT AN ILLEGAL INPUT BASE TO HEX 

* He * * * * 


♦INPUT A HEX NUMBER 
♦TEST FOR A LEGAL DIGIT 


FB7 B 

C 1 

09 

HEXNUM CMP 

B 

#$09 




FB7D 

2 F 

0A 

BLE 


HEXN1 

OR I F 9 

OR 

LESS 

F B 7 F 

C 1 

1 I 

CMP 

B 

#$ 1 1 




FB 8 1 

2 B 

56 

BMI 


CONERR 

NOT HEX 

I F 

< A 

F B 8 3 

C 1 

I 6 

CMP 

B 

#$16 




FB 8 5 

2 E 

52 

BGT 


CONERR 

NOT HEX 

I F 

> F 

F B 8 7 

CO 

07 

SUB 

B 

#7 

MOVE A- 

F ABOVE 0-9 
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F B 8 9 

8 D 

54 

* SHI FT LO & 

HEXN1 BSR 

HI BYTES LEFT 4 BITS 

SHI FT2 

FB8B 

8 D 

5 2 

BSR 

SHIFT2 


FB8D 

FA 

70 14 

ORA 

B 

NBRLO 

FB9 0 

F 7 

70 14 

STA 

B 

NBRLO 


FB9 3 

20 

CB 

BRA NUMLUP 




****** 




♦INPUT A DECIMAL NUMBER 

•TEST FOR A LEGAL DIGIT 

FB9 5 

C 1 

09 

DECNUM CMP B #$09 

FB9 7 

2 E 

40 

BGT CONERR NOT DECIMAL IF > 9 





•MULT 1 

I PLY 

SAVED VALUE 

BY 10 & ADD IN NEW DIGIT 





•NOTE 

THAT 

10X= 2 X+ 8 X 






•MULTIPLY < 

CURRENT NUMBER BY 2 TO GET 2X VALUE 


FB9 9 

8 D 

49 


BSR 


SHIFT 






•SAVE 

TH I S 

*2 

NUMBER 

TEMPORARILY 


FB9B 

FE 

70 13 


LDX 


NBRHI 



FB9E 

FF 

7 0 DC 


STX 


NBR2X 






•MULTI PLY 

THIS 

# BY 4 

TO GET 8X VALUE 


FBA 1 

8 D 

3 C 


BSR 


SHIFT2 






•(NBRHI,NBRLO) 

NOW HOLDS *8 





•GENERATE 

DIGIT+8X+2X 



F BA 3 

4 F 



CLR 

A 


ACCA WILL HOLD MS BYTE 


FBA4 

FB 

7 0 DD 


ADD 

B 

NBR2X+1 

ADD 2X LS BYTE TO DIGIT 


FBA 7 

B 9 

7 0 DC 


ADC 

A 

NBR2X 

ADD 2X MS BYTE 


FBAA 

2 5 

2D 


BCS 


CONERR 

CARRY OUT OF MS BYTE IS AN 

ERROR 

FBAC 

FB 

70 14 


ADD 

B 

NBRLO 

ADD 8X LS BYTE 


FBAF 

B 9 

70 13 


ADC 

A 

NBRHI 

ADD 8X MS BYTE 


FBB2 

2 5 

2 5 


BCS 


CONERR 

CARRY OUT OF MS BYTE IS AN 

ERROR 

FBB4 

F 7 

70 14 


STA 

B 

NBRLO 

SAVE FINAL LS BYTE 


FBB7 

B 7 

70 13 


STA 

A 

NBRHI 

SAVE FINAL MS BYTE 



FBBA 

20 

A4 

****** 

BRA 

NUMLUP 





* INPUT 

AN OCTAL NUMBER 


F BBC 

Cl 

07 

OCTNUM 

CMP 

B #$07 


FBBE 

2 E 

1 9 


BGT 

CONERR 

NOT OCTAL IF > 7 




•SHIFT 

HI & 

LO BYTES 3 

PLACES LEFT - CARRY OUT OF HI 




* 



BYTE IS ILLEGAL 

FBC0 

8 D 

1 D 


BSR 

SHI FT2 


FBC2 

8 D 

20 


BSR 

SHI FT 


FBC4 

FA 

70 14 


ORA 

B NBRLO 

ADD IN NEW DIGIT 

FBC7 

F 7 

70 14 


STA 

B NBRLO 


FBCA 

7 E 

FB6 0 


JMP 

NUMLUP 




****** 


•GOOD NUMBER - SCAN WAS SUCCESSFUL 
•UPDATE GOOD SYNTAX LINE POINTER 


F BCD 

FE 

7 0 0 C 

GUDNUM LDX 

LINPTR 


FBDO 

FF 

7 0 0 A 

STX 

SYNPTR 


FBD3 

FE 

7 0 D 2 

LDX 

XTEMP2 


FBD6 

8 6 

0 1 

LDA A 

#1 

SET "GOOD SCAN" FLAG 

FBD8 

39 


RTS 







****** 






•CONVERSION ERROR - SCAN WAS UNSUCCESSFUL 

FBD9 

FE 

70D2 

CONERR 

LDX 

XTEMP2 

FBDC 

4 F 



CLR A 


FBDD 

4 A 



DEC A 


FBDE 

39 


*_ 

RTS 





*SHI FT 

LEFT 2 

POSITIONS 

FBDF 

8 D 

0 3 

SHI FT2 

BSR 

SHI FT 

FBE 1 

8 D 

0 1 


BSR 

SH I FT 

FBE3 

3 9 


* 

RTS 





♦SHIFT 

A TWO 

BYTE NUMBER LEFT ONE POSITION 

FBE4 

78 

70 14 

SH I FT 

ASL 

NBRLO 

FBE7 

7 9 

70 13 


ROL 

NBRHI 

FBEA 

2 5 

0 1 


BCS 

SHFTER 

FBEC 

39 



RTS 





* ERROR 

- HI ORDER BYTE OVERFLOW 




♦ABORT 

NUMBER 

ROUTINE DIRECTLY THRU STACK ADJ 

F B ED 

3 1 


SH FT ER 

INS 


FBEE 

3 1 



INS 


FBEF 

20 

E 8 


BRA 

CONERR 


* 


•OUTPUT A SPACE 


FBF 1 

86 

20 OUTS P 

LDA A 

#$20 

FBF3 

BD 

F E 7 6 

J SR 

OUTCHR 

FBF6 

3 9 


RTS 





FBF7 

8 6 

3D 

•OUTPUT AN "=" SIGN 
OUTEQ LDA A #'= 

FBF9 

BD 

FE 7 6 

J SR OUTCHR 

FBFC 

3 9 


RTS 


•OUTPUT A 1 BYTE NUMBER 
•ACCA, ACCB, & IX ARE PRESERVED 


FBFD 

3 7 


OUT 1 BY PSH 

B 


FB FE 

C 6 

0 1 

LDA 

B 

#i 

FC00 

8 D 

09 

BSR 


OUTNUM 

FC0 2 

3 3 


PUL 

B 


FC0 3 

3 9 


RTS 




A JUMP 


50 





’OUTPUT A 2 BYTE NUMBER 
* ACCA, ACCB, & IX ARE PRESERVED 


FC 0 4 

3 7 


OUT2 BY PSH 

B 


FCO 5 

C 6 

02 

LDA 

B 

#2 

FC 0 7 

8 D 

02 

BSR 


OUTNUM 

FC 0 9 

3 3 


PUL 

B 


FC 0 A 

39 


RTS 




♦DISPLAY THE NUMBER POINTED AT BY THE ADDRESS IN THE 

* INDEX REGISTER 

* AND OUTPUT IT ACCORDING TO THE BASE SPECIFIED IN 

* *DBCODE" 

♦LEADING ZEROES ARE INCLUDED 
♦ACCA & IX ARE PRESERVED 

♦ACCB IS INPUT AS THE NUMBER OF BYTES COMPRISING THE 

* NUMBER 

♦GLOBAL VARIABLES FOR EXTERNAL COMMUNICATION 

* I BCODE - INPUT BASE CODE 
♦DBCODE - DISPLAY BASE CODE 


♦LOCAL VARIABLES 





* DECDIG - 

DECIMAL DIGIT BEING BUILT 





* NUMBHI - 

HI 

BYTE OF 

NUMBER BEING OUTPUT 





*NUMBLO - 

LO 

BYTE OF 

NUMBER BEING OUTPUT 


FCO B 

FF 

7 0DO 

OUTNUM STX 


XTEMP1 



FCO E 

3 6 


PSH 

A 




FCO F 

EE 

00 

LDX 


X 

GET THE TWO BYTES 

AT THAT 




* 



ADDRESS 


FC 1 1 

FF 

7 0 DA 

STX 


NUMBHI 

PUT THEM IN A SCRATCH AREA FOR 




* 



PROCESSING 


FC 1 4 

B 6 

70 11 

LDA 

A 

DBCODE 

GET DISPLAY BASE 


FC 1 7 

8 1 

0 1 

CMP 

A 

#1 



FC 1 9 

2 7 

OC 

BEQ 


OUTHEX 



FC 1 B 

8 1 

02 

CMP 

A 

#2 



FC 1 D 

27 

1 E 

BEQ 


OUTDEC 



FC 1 F 

8 1 

0 3 

CMP 

A 

#3 



FC2 1 

27 

5 E 

BEQ 


OUTOCT 



FC2 3 

8 1 

04 

CMP 

A 

#4 



FC 2 5 

27 

78 

BEQ 


OUTBIN 






****** 








♦OUTPUT A HEX 

NUMBER 



FC2 7 

58 


OUTHEX ASL 

B 


1 BYTE=2 CHARS, 2 

BYTES=4 CHARS 




*GET NEXT - 

\ BITS 



FC 2 8 

BD 

FCB3 

DISNU1 J SR 


LSH2 



FC2B 

BD 

FCB 3 

J SR 


LSH2 



FC2E 

84 

OF 

AND 

A 

#$F 

EXTRACT 4 BITS 



51 



FC 3 0 

8 ) 

09 

CMP 

A 

#9 


FC 3 2 

2 F 

02 

BLE 


D1SNU2 


FC 3 4 

8 B 

07 

ADD 

A 

#7 

CONVERT 10:15 TO A:F 

FC 3 6 

8 D 

75 

DISNU2 BSR 


OUT IT 


FC 3 8 

5 A 


DEC 

B 



FC 3 9 

2 6 

ED 

BNE 


DISNU1 


FC 3 B 

20 

3 5 

BRA 


OUTDE5 






* * * * * * 








♦OUTPUT A DECIMAL NUMBER 



FC 3 D 

5 A 


OUTDEC DEC 

B 

TEST 

§ 

OF BYTES TO OUTPUT 

FC 3 E 

27 

OB 

BEQ 

OUTDE1 







* INITIALIZE 

FOR OUTPUT 

OF A 

2 

BYTE NUMBER 

FC4 0 

CE 

FC 7 7 

LDX 

#C1 OK 




FC4 3 

B 6 

7 0 DA 

LDA 

A NUMBHI 




FC4 6 

F 6 

7 0DB 

LDA 

B NUMBLO 




FC4 9 

20 

07 

BRA 

OUTDE2 





FC4 B 

FC4E 

CE 

4 F 

FC7B 

* INITIALIZE 
OUTDE1 LDX 

CLR A 

FOR OUTPUT OF A 1 
#C1 00 

1 BYTE NUMBER 

FC4F 

F 6 

7 0 DA 

LDA B 

NUMBHI 

- 


FC 5 2 

IF 

70D9 

OUTDE2 

CLR 


DECDIG 

CLEAR THE DIGIT TO OUTPUT 




♦SUBTRACT 

THE 

POWER OF 

10 CONVERSION CONSTANT 

FC 5 5 

E0 

0 I 

OUTDE3 

SUB 

B 

1 ,x 


FC 5 7 

A 2 

00 


SBC 

A 

0 , X 


FC 5 9 

2 5 

05 


BCS 


OUTDE4 

TEST FOR BORROW (CARRY) 

FC 5 B 

1C 

70D9 


INC 


DECDIG 

NO BORROW YET - INC DIGIT BEING 




• 




BUILT 

FC5E 

20 

F 5 


BRA 


OUTDE3 

REPEAT LOOP 




♦BORROW GENERATED - CANCEL LAST SUBTRACTION 

FC 6 0 

EB 

0 1 

OUTDE4 

ADD 

B 

1 ,X 


FC 6 2 

A 9 

00 


ADC 

A 

0 ,X 






♦BUILDING i 

OF 

DIGIT TO 

OUTPUT IS COMPLETE - PRINT 

1 T 

FC6 4 

36 


PSH 

A 


SAVE LO BYTE OF NUMBER BEING 




* 



OUTPUT 


FC6 5 

B 6 

70D9 

LDA 

A 

DECDIG 

GET DIGIT 


FC6 8 

8 D 

43 

BSR 


OUT IT 

PRINT IT 


FC 6 A 

3 2 


PUL 

A 


RESTORE LO BYTE 





♦GET NEXT 

LOWER POWER 

OF 1 0 


FC 6 B 

08 


I NX 





FC6C 

08 


I NX 





FC 6 D 

8 C 

FC8 1 

CPX 


#C10K+10 

ARE WE THRU WITH UNITS 





* 



CONVERSION? 


FC 7 0 

26 

E0 

BNE 


OUTDE2 

IF NOT, BACK TO GET NEXT 

DIGIT 

FC 7 2 

32 


OUTDE5 PUL 

A 


IF YES, RESTORE REGISTERS 

& RETU 

52 










FC7 3 FE 7 0DO 
FC7 6 3 9 


LDX 

RTS 


XTEMP1 


* DEC IMAL OUTPUT CONVERSION CONSTANTS 


FC7 7 

2 7 10 

Cl OK 

FDB 

1 0 0 0 0 

FC 7 9 

0 3 E 8 


FDB 

1000 

FC 7 B 

00 64 

Cl 00 

FDB 

100 

FC 7 D 

0 0 0 A 


FDB 

1 0 

FC7F 

000 1 


FDB 

1 


****** 

♦OUTPUT AN OCTAL NUMBER 





♦FIRST 

DIGIT 

IS A ONE 

OR A ZERO 

FC8 1 

58 


OUTOCT 

ASL B 


FIRST APPROXIMATION OF # OF 




* 




DIGITS TO OUTPUT 

FC 8 2 

4 F 




CLR A 



FC 8 3 

Cl 

02 



CMP B 

#2 


FC 8 5 

2 E 

06 



BGT 

OUTOC 1 


FC 8 7 

8 D 

2 A 



BSR 

LSH2 

1 BYTE - GET FIRST 2 BITS 

FC 8 9 

8 D 

2 2 



BSR 

OUT IT 


FC8B 

20 

05 



BRA 

D I SNU 3 

GO OUTPUT LAST 2 DIGITS 




♦TWO 

BYTE # 

- OUTPUT 

HI ORDER BIT/DIGIT 

FC8D 

8 D 

29 

OUTOC1 

BSR 

LEFSHF 


FC8F 

8 D 

1C 



BSR 

OUT IT 


FC9 1 

5 C 




INC B 


5 MORE DIGITS TO GO 




♦GET 

NEXT 3 

BITS 


FC9 2 

8 D 

1 F 

DISNU 3 

BSR 

LSH2 


FC9 4 

8 D 

2 2 



BSR 

LEFSHF 



FC9 6 

84 

0 7 

AND 

A 

#7 

EXTRACT 3 BITS 

FC9 8 

8 D 

1 3 

BSR 


OUT I T 


FC9 A 

5 A 


DEC 

B 


COUNT THIS DIGIT 

FC9B 

26 

F 5 

BNE 


DISNU 3 

ARE WE DONE? 

FC9D 

20 

D3 

BRA 


OUTDE5 

YES 




****** 







♦OUTPUT A 

BINARY NUMBER 

FC9 F 

5 8 


OUTBIN ASL 

B 



FCA0 

5 8 


ASL 

B 



FCA 1 

58 


ASL 

B 






♦GET NEXT 

B I T 



FCA 2 

8 D 

1 4 

DISNU4 BSR 


LEFSHF 


FCA4 

84 

0 1 

AND 

A 

#1 

EXTRACT THE BIT 


FCA6 

8 D 

0 5 

BSR 

OUT IT 

OUTPUT 

I T 

FCA8 

5 A 


DEC B 


COUNT 

I T 

FCA9 

2 6 

F 7 

BNE 

DISNU4 

ARE WE 

DONE? 

FCA B 

20 

C 5 

BRA 

OUTDE5 

YES 



* * * 

♦CONVERT TO A NUMERIC ASCII DIGIT & OUTPUT IT 
FCAD 8 B 3 0 OUT IT ADD A #$30 

FCAF BD FE7 6 JSR OUTCHR 

FCB2 39 RTS 

* * * 

♦LEFT SHIFT 2 BITS 


53 



FCB3 

8 D 

0 3 

LSH 2 

BSR 

LEFSHF 

FCB5 

8 D 

0 1 


BSR 

LEFSHF 

FCB7 

3 9 



RTS 






* * * 






* L E FT SHIFT 

THE 3 BYTE NUMBER 1 

l BIT 

FCB8 

7 8 

7 ODB 

LEFSHF ASL 

NUMBLO 


FCBB 

7 9 

7 ODA 

ROL 

NUMBHI 


FCBE 

4 9 


ROL A 



FCBF 

3 9 


RTS 







* 






‘THIS ROUTINE 

GETS THE NEXT CHARACTER FROM THE INPUT 




* 


LINE BUFFER 




* ACCA IS PRESERVED 





* ACC B IS LOADED WITH 

THE CHARACTER 




*IX IS INCREMENTED & 

LEFT POINTING TO THE CHARACTER 




* 


RETURNED 

FCC 0 

FE 

7 0 0C 

GETCHR LDX 

L INPTR 


FCC 3 

0 8 


I NX 



FCC 4 

E 6 

00 

L DA B 

X 


FCC 6 

FF 

7 0 0 C 

STX 

L INPTR 


FCC 9 

7 F 

7 0 0 E 

CLR 

BOLFLG 

SET FLAG TO NOT AT "BEGINNING 




* 


OF LINE" 

FCCC 

3 9 


RTS 







* 






‘THIS ROUTINE 

GETS THE 

NEXT CHARACTER IN THE COMMAND 




* 


L I STS 




‘ACCA IS THE 

CHARACTER 

RETRI EYED 




* ACC B IS PRESERVED 





*IX IS INCREMENTED & LEFT POINTING TO THE CHARACTER 




* 


RETURNED 

FCC D 

FE 

7 0 D 7 

GETLST LDX 

LISPTR 

GET CURRENT LIST POINTER 

FCD 0 

0 8 


I NX 


MOVE POINTER TO NEXT CHAR 

FCD 1 

A 6 

00 

LDA A 

X 

GET CHARACTER POINTED AT 

FCD 3 

FF 

7 0 D 7 

STX 

LISPTR 

SAVE POINTER 

FCD 6 

3 9 


RTS 


AND RETURN 


* COMMAND LISTS 

* A CARRIAGE RETURN SIGNIFIES END - OF - COMMAND 

* A LINE FEED SIGNIFIES END-OF-COMMAND-LI ST 

* LI ST 1 - MAJOR COMMANDS 



FCD7 

COMLST EQU 

* 


FCD 7 

5 2 

FCC 

' REG ' 

DISPLAY REGISTERS 

FCD8 

4 5 




FCD9 

4 7 




FC DA 

0D 

FC B 

CR 


FCD B 

4 7 

FCC 

'GOTO' 

GO TO MEMORY ADDRESS 

FCDC 

4 F 




FCDD 

5 4 




FCDE 

4 F 




FCDF 

0D 

FCB 

CR 


FC E 0 

5 3 

FCC 

' S E I ' 

SET INTERRUPT MASK 


54 






FCE 1 

4 5 





FCE 2 

49 





FCE3 

OD 


FC B 

CR 


FCE4 

4 3 


FCC 

' CL I ' 

CLEAR INTERRUPT MASK 

FCE5 

4 C 





FCE6 

49 





FCE7 

OD 


FC B 

CR 


FCE8 

4 3 


FCC 

' COPY' 

COPY FROM ONE LOCATION TO 

FCE9 

4 F 





FCE A 

50 





FCE B 

5 9 







* 



ANOTHER 

FC EC 

OD 


FC B 

CR 


FCED 

4 2 


FCC 

'BREAK' 

SET BREAKPOINT (SWI CODE) 

FC E E 

5 2 





FCEF 

4 5 





FC F 0 

4 1 





FC F 1 

4 B 





FC F 2 

OD 


FC B 

CR 


FC F 3 

49 


FCC 

' I BASE ' 

SET INPUT BASE 

FC F 4 

4 2 





FC F 5 

4 1 





FC F 6 

5 3 





FC F 7 

4 5 





FC F 8 

OD 


FC B 

CR 


FCF9 

44 


FCC 

'DBASE' 

SET DISPLAY BASE 

FC FA 

4 2 





FC F B 

4 1 





FC FC 

5 3 





FC FD 

4 5 





FC F E 

OD 


FCB 

CR 


FC F F 

4 3 


FCC 

'CONTINUE 

' CONTINUE FROM "SWI" 

FDO 0 

4 F 





FDO 1 

4 E 





FDO 2 

5 4 





FDO 3 

49 





F DO 4 

4 E 





FDO 5 

5 5 





FDO 6 

4 5 





FDO 7 

OD 


FCB 

CR 


FDO 8 

44 


FCC 

'DISPLAY' 

DISPLAY MEMORY DATA 

FDO 9 

49 





F DO A 

5 3 





FDO B 

50 





FDO C 

4 C 





FDO D 

4 1 





FDO E 

59 





FDO F 

OD 


FCB 

CR 


FD 1 0 

53 


FCC 

' SET ' 

SET MEMORY DATA 

FD 1 1 

4 5 





FD 1 2 

54 





FD 1 3 

OD 


FCB 

CR 


FD 1 4 

5 6 


FCC 

'VERIFY' 

VERIFY THAT MEMORY 

FD 1 5 

4 5 





FD 1 6 

52 





FD 1 7 

49 
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CONTENT IS UNCHANGED 


FD 1 8 46 

FD1 9 59 

* 



FDIA OD 


FCB 

CR 

FD 1 B 53 

FD1C 45 

FD1D 41 

FD1E 52 

FD1F 43 

FD2 0 4 8 

* 

FCC 

' SEARCH' 

FD21 OD 


FCB 

CR 

FD2 2 54 

FD2 3 4 5 

FD2 4 5 3 

FD2 5 54 


FCC 

'TEST' 

FD2 6 OD 


FCB 

CR 

FD2 7 49 

FD2 8 4 E 

FD2 9 5 4 


FCC 

' I NT ' 

FD2A OD 


FCB 

CR 

FD2B 4 E 

FD2C 4 D 

FD2D 49 

* 

FCC 

' NM I ' 

FD2E OD 


FCB 

CR 

FD2F 53 

FD30 57 

FD31 49 

* 

FCC 

' SWI ' 

FD3 2 OD 


FCB 

CR 

FD3 3 43 

FD3 4 4 F 

FD3 5 4D 

FD3 6 50 

FD3 7 4 1 

FD3 8 5 2 

FD3 9 45 

* 

FCC 

'COMPARE 

FD3 A OD 


FCB 

CR 

FD3B 44 

FD3C 55 

FD3D 4 D 

FD3E 50 

* 

FCC 

'DUMP' 

FD3F OD 


FCB 

CR 

FD4 0 4C 

FD41 4 F 

FD4 2 41 

FD4 3 44 


FCC 

'LOAD ' 

FD4 4 OD 


FCB 

CR 

FD4 5 44 

FD4 6 4 5 

FD4 7 4C 

FD4 8 41 

FD4 9 5 9 


FCC 

'DELAY' 


SEARCH MEMORY FOR A 

BYTE STRING 

TEST A RANGE OF MEMORY 

SET INTERRUPT POINTER 

SET NON-MASKABLE 

INTERRUPT POINTER 
SET SOFTWARE INTERRUPT 

POINTER 

PRINT SUM & DIFFERENCE 

OF 2 NUMBERS 

DUMP MEMORY IN MIKBUG OR IMAGE 

FORMAT 

LOAD MIKBUG TAPE 

DELAY SPECIFIED # OF BYTES 
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FD4 A 

OD 

FCB 

CR 



FD4B 

OA 

FCB 

LF 

END OF LIST 

1 



♦LIST 2 - MODIFIER 

TO DUMP 


FD4C 

54 

FCC 

' TO ' 

DESTINATION 

AC 1 A 

FD4D 

4 F 





FD4E 

OD 

FCB 

CR 



FD4F 

OA 

FCB 

LF 

END OF LIST 

2 


♦LIST 3 - NUMBER BASE SPECIFIERS 


FD5 0 

48 

FCC 

' HEX' 

BASE 16 

FD5 1 

4 5 




FD5 2 

5 8 




FD5 3 

OD 

FCB 

CR 


FD5 4 

44 

FCC 

' DEC ' 

BASE 10 

FD5 5 

45 




FD5 6 

4 3 




FD5 7 

OD 

FCB 

CR 


FD5 8 

4 F 

FCC 

'OCT ' 

BASE 8 

FD 5 9 

4 3 




FD5 A 

54 




FD5B 

OD 

FCB 

CR 


FD5C 

4 2 

FCC 

'BIN' 

BASE 2 

FD 5 D 

49 




FD5E 

4 E 




FD5F 

OD 

FCB 

CR 


FD6 0 

OA 

FCB 

LF 

END OF LIST 



♦LIST 4 - 

INFORMATION 

REQUEST 

FD6 I 

3 F 

FCC 

' ? ' 


FD6 2 

OD 

FCB 

CR 


FD6 3 

OA 

FCB 

LF 

END OF LIST 




♦LIST 5 - REGISTER NAMES 

FD6 4 

2 E 

FCC 

' CC' 

FD6 5 

4 3 



FD6 6 

4 3 



FD6 7 

OD 

FCB 

CR 

FD6 8 

2 E 

FCC 

' . B ' 

FD6 9 

42 



FD6 A 

OD 

FCB 

CR 

FD6B 

2 E 

FCC 

' .A' 

FD6C 

4 1 



FD6D 

OD 

FCB 

CR 

FD6E 

2 E 

FCC 

' . IX' 

FD6F 

49 



FD7 0 

5 8 



FD7 1 

OD 

FCB 

CR 

FD7 2 

2 E 

FCC 

' . PC ' 

FD7 3 

50 



FD7 4 

4 3 



FD7 5 

OD 

FCB 

CR 

FD7 6 

2 E 

FCC 

' . SP ' 

FD7 7 

5 3 
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FD7 8 

50 


FD7 9 

0D 

FCB 

FD7 A 

0A 

FCB 


♦LIST 6 - 


FD7 B 

44 

FCC 

FD7C 

4 1 


FD7D 

5 4 


FD7E 

4 1 


F D 7 F 

0D 

FCB 

FD8 0 

5 5 

FCC 

FD 8 1 

5 3 


F D 8 2 

4 5 


F D 8 3 

44 


F D 8 4 

0D 

FCB 

FD8 5 

0A 

FCB 


CR 

LF END OF LIST 5 


IFIERS TO "DISPLAY" 
' DATA ' 


CR 

'USED' 


CR 

LF END OF LIST 6 


♦LIST 7 - MODIFIER TO "LOAD" 


FD8 6 

4 6 

FCC 

FD8 7 

5 2 


FD8 8 

4 F 


FD8 9 

4 D 


FD 8 A 

0D 

FCB 

FD8 B 

0A 

FCB 


'FROM' SOURCE AC I A 


CR 

LF END OF LIST 6 


* THIS ROUTINE CONSTRUCTS A LINE OF INPUT BY GETTING 

* ALL INPUT 

* CHARACTERS UP TO AND INCLUDING A CARRIAGE RETURN 

* (WHICH THEN 

* DESIGNATES "END OF LINE"). 

* TYPING RUBOUT WILL DELETE THE PREVIOUS CHARACTER 

* TYPING CONTROL-C WILL ABORT THE LINE 

* TYPING CONTROL-Z WILL USE THE PREVIOUS LINE 

* THE INPUT LINE IS STORED BEGIN1NG AT THE ADDRESS 

* STORED IN BUFBEG 

* AND ENDING AT THE ADDRESS STORED IN BUFEND 

♦ACCA, ACCB, & IX ARE NOT PRESERVED 

* 

♦GLOBAL VARIABLES 

♦BUFBEG - INPUT LINE START OF BUFFER 
♦BUFEND - INPUT LINE END OF BUFFER 


0 0 5 C 
00 7 F 


♦LOCAL CONSTANTS 
BAKSLA EQU 92 

DELETE EQU 127 


* 


A BACKSLASH 

CODE TO DELETE THE PREVIOUS 
CHARACTER 


* 
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**** ROUTINE ENTRY POINT 


FD8C 

FE 

7 0 2 C 

GETL IN 

LDX 

BUFBEG 

SET POINTER TO ONE LESS THAN 




* 

* 



THE BEGINNING OF THE LINE BUF 

R 

ACCB HOLDS LAST INPUT CHAR 

FD8 F 

5 F 


* 

CLR B 


FD9 0 

BC 

7 0 2 E 

NXTCHR 

CPX 

BUFEND 

CHECK CURRENT LINE END AGAINST 




♦ 



BUFFER END 

FD9 3 

26 

09 


BNE 

GET I T 





* 

LINE TOO 

LONG - ABORT 

IT AS IF A CONTROL-C HAD BEEN 



* 



TYPED 

FD9 5 

CE 

F F 0 7 

LDX 

#MSGLT L 

GET MESSAGE 

FD9 8 

BD 

FE4 B 

JSR 

OUTSTR 

OUTPUT IT 

FD9 B 

C 6 

03 

LDA 

B #3 

PUT CTL-C IN ACCB 

FD9D 

3 9 


RTS 




FD9E 

BD 

F E 5 9 GETIT 

* 

JSR 

INPCHR 

GET A CHARACTER (RETURNED IN 
ACCA) 

FDA 1 

84 

7 F 

AND A 

#127 

DROP PARITY BIT 





* CONTROL -Z 

COPIES FROM 

PRESENT POSITION TO PREVIOUS 




* 




END OF LINE 

FDA 3 

8 1 

1 A 


CMP 

A 

#26 

IS CHAR A CONTROL-Z? 

FDA 5 

26 

04 


BNE 


TSTCR 


FDA 7 

BD 

FEC7 


JSR 


DOCRLF 

YES, TYPE CR-LF 

FDAA 

39 



RTS 




FDA B 

8 1 

0D 

TSTCR 

CMP 

A 

#13 

IS CHAR A CR? 

FDAD 

27 

04 


BEQ 


TSTCR1 


FDAF 

8 1 

0A 


CMP 

A 

#10 

OR A LF? 

FDB 1 

26 

OC 


BNE 


NOTEOL 


FDB 3 

08 


TSTCR1 

I NX 




FDB4 

A7 

00 


STA 

A 

X 

YES, STORE THE TERMINATOR 

FDB 6 

7 D 

7 0 2 9 


TST 


HDXFLG 

TEST FOR HALF-DUPLEX TERMINAL 

FDB9 

2 6 

03 


BNE 


TSTCR2 


FDB B 

BD 

FEC7 


JSR 


DOCRLF 

TYPE CR-LF 

FDB E 

39 


TSTCR2 

* 

RTS 



NOW RETURN 

FDB F 

8 1 

03 

NOT EOL 

CMP 

A 

#3 

IS CHAR A CONTROL-C? 

FDC I 

26 

07 


BNE 


NOTCTC 





•ECHO 

AN UP 

* -ARROW 


FDC 3 

I 6 



TAB 



RETURN CONTROL-C IN ACCB 

FDC4 

86 

5 E 


LDA 

A 

#' i 


FDC 6 

BD 

FE7 6 


JSR 


OUTCHR 


FDC9 

39 



RTS 





FDCA 

8 1 

7 F 

NOTCTC CMP A 

#DELETE 

NO, IS 

IT 

DELETE? 

FDCC 

27 

25 

BEQ 

RUBNOW 

I F YES , 

GO 

TO RUBNOW 



•CONVERT LOWER CASE 

TO UPPER 

CASE 

FDCE 81 60 

CMP A #$60 

BELOW 

L.C. A? 


59 



FDDO 

2 3 

06 

BLS 


STORIT 


FDD 2 

8 1 

7 A 

CMP 

A 

# $ 7 A 

ABOVE L.C. Z? 

FDD4 

22 

02 

BHI 


STORIT 


FDD6 

80 

20 

SUB 

A 

#32 

CONV L.C. ALPHABETIC TO U.C 


FDD 8 

08 

STORIT I NX 

NOT A 

DELETE, SO ADVANCE TO 



* 

NEXT 

CHARACTER 

FDD9 

A 7 00 

STA A X 

STORE 

IT IN INPLIN 


FDDB 

C 1 

7 F 


CMP 

B # DEL ET E 

IS LAST CHAR A DELETE? 

FDDD 

2 7 

03 


BEQ 

OUTBAK 

IF SO, GO TO OUTBAK 


FDD F 

I 6 



TAB 


ITS NOT, UPDATE LAST 

CHAR 

FDE 0 

20 

07 

* 

BRA 

ECHO 

GO ECHO IT 





* LAST 

CHAR 

WAS A DELETE, BUT THIS ONE ISN'T 

FDE 2 

I 6 


OUTBAK 

TAB 


UPDATE LAST CHAR 


FDE 3 

8 6 

5 C 


LDA 

A #BAKS LA 

PRINT A - 


FDE 5 

BD 

FE7 6 


J SR 

OUTCHR 

BACKSLASH 


FDE 8 

I 7 



T BA 


RESTORE CURRENT CHAR 

FOR ECHO 

FDE 9 

7 D 

7 0 2 9 

ECHO 

TST 

HDXFLG 

TEST FOR HALF DUPLEX 

TERMINAL 

FDEC 

26 

03 


BNE 

ECHO I 



FDE E 

BD 

F E 7 6 


JSR 

OUTCHR 

NOW ECHO 1T 


FDF I 

20 

9 D 

ECHO 1 

* 

BRA 

NXTCHR 

GET ANOTHER 





* CURRENT CHARACTER I 

S A DELETE 





* TEST 

LINE 

LENGTH - 

IF ITS ZERO, IGNORE THI 

S DELETE 




* 



SINCE 





* WE CAN'T 

DELETE PRIOR TO FIRST CHARACTER I 

N INPUT 




* 



LINE 


FDF 3 

BC 

7 0 2 C 

RUBNOW 

CPX 

BUFBEG 



FDF 6 

2 7 

9 8 


BEQ 

NXTCHR 



FDF 8 

Cl 

7 F 


CMP 

B # DE L ETE 

WAS LAST CHAR A DELETE? 

FDFA 

2 7 

06 


BEQ 

LASWAS 







* LAST 

CHAR 

WASN'T A DELETE 

FDFC 

1 6 



TAB 


UPDATE LAST CHAR (WITH A DELETE) 

FDFD 

8 6 

5 C 


LDA 

A 

# BAKSLA PRINT A - 

FDF F 

BD 

F E 7 6 


JSR 


OUTCHR BACKSLASH 




* LAST 

CHAR 

WAS 

A DELETE 

FE0 2 

A 6 

00 

LASWAS 

LDA 

A 

X GET THE CHAR TO BE DELETED 

F E 0 4 

09 



DEX 


DECREMENT LINE POINTER 

F E 0 5 

20 

E2 


BRA 


ECHO ECHO DELETED CHARACTER 


F E 0 7 

0 F 


♦INITIALIZATION ROUTINE 
♦DISABLE INTERRUPTS 

SE I 

F E 0 8 

8 6 

0 1 

INITAL LDA A #1 


F E 0 A 

B 7 

70 10 

STA A IBCODE 

SET INPUT BASE TO HEX 

FE0D 

B 7 

70 11 

STA A DBCODE 

SET DISPLAY BASE TO HEX 

FE 1 0 

8 6 

1 0 

♦SET UP DISPLAY BASE 
LDA A #16 

NUMBER 


60 



FE1 2 

B 7 

70 1 2 

STA A 

DBNBR 






♦MAX # OF CHARACTERS 

PER LINE 


FE 1 5 

8 6 

48 

LDA A 

#72 



FE1 7 

B 7 

7 0 2 B 

STA A 

CPLMAX 



FE 1 A 

7 F 

7 02 3 

CLR 

INPFLG 

DEFAULT INPUT FROM THE 

TERM INA 

FE 1 D 

7 F 

7 0 2 6 

CLR 

OUT F LG 

DEFAULT OUTPUT TO THE TERMINAL 

F E 2 0 

7 F 

7 0 2 9 

CLR 

HDXFLG 

CLEAR HALF-DUPLEX FLAG 





* INITIALIZE 

AC IA1 & ACIA2 TO 7 BITS & EVEN PAR 

1 TY 




♦RESET BOTH 




FE2 3 

8 6 

03 

LDA A 

#3 



FE2 5 

B 7 

7 F42 

STA A 

AC I A 1 - 1 



FE2 8 

B 7 

7 F 4 4 

STA A 

AC I A 2 - 1 






♦SET EM UP 




FE2B 

8 6 

02 

LDA A 

#2 



FE 2 D 

B 7 

7F42 

STA A 

AC I A 1 - 1 



F E 3 0 

B 7 

7F44 

STA A 

AC I A 2 - 1 






♦SET UP SWI 

INTERRUPT 

ADDRESS POINTER 


FE3 3 

CE 

F 5 0 1 

LDX 

#TYPSW I 

TYPE "SWI' & DO "REG" 

COMMAND 

FE 3 6 

FF 

7004 

STX 

SWI VEC 






♦ INITIALIZE 

TO MONDEB 

' S COMMAND LISTS 


FE 3 9 

CE 

FCD6 

LDX 

#COMLST 

- 1 


FE3C 

FF 

7008 

STX 

COMADR 






♦TIME CONSTANT FOR A 

2 MICROSECOND CLOCK 


FE3 F 

86 

5 3 

LDA A 

#83 



FE4 1 

B 7 

7 0 DE 

STA A 

T 1MCON 






♦ALLOW TIME 

FOR TTY MOTOR TO COME UP TO SPEED 


FE4 4 

CE 

0 1 F 4 

LDX 

#500 



FE4 7 

BD 

F9BD 

J SR 

TIMDEL 



FE4 A 

3 9 


RTS 

* 







♦OUTPUT A CHARACTER STRING WHICH BEGINS AT THE 

ADDRES 




* 


IN THE INDEX REGISTER 





♦ACCA & ACCB 

ARE PRESERVED 





♦IX IS LEFT 

POINTING 

TO THE STRING TERMINATOR 


FE4B 

3 6 


OUTSTR PSH A 




FE4C 

A 6 

00 

OUTST1 LDA A 

X 

GET CHAR POINTED TO 


FE4E 

8 1 

04 

CMP A 

#4 

IS IT A STRING TERMINATOR? 

FE 5 0 

2 7 

05 

BEQ 

OUTEND 

DONE IF IT IS 


FE5 2 

8 D 

2 2 

BSR 

OUTCHR 

ISN'T, OUTPUT IT 


F E 5 4 

08 


I NX 


ON TO NEXT CHARACTER 


FE5 5 

20 

F 5 

BRA 

OUTST1 



F E 5 7 

3 2 


OUTEND PUL A 




FE 5 8 

39 


RTS 


RETURN 






* 

II 

H 

n 

II 

II 

II 

II 

II 

II 

II 

n 

II 

ll 

II 

II 

II 

ll 

ll 

ll 

ll 

n 

ll 

ll 

ll 

ll 

ll 

II 

ll 

II 

II 

II 

II 

II 

ll 

ll 

ll 

li 

ll 

ll 

ll 

ll 

ll 

II 

II 




♦INPUT A CHARACTER FROM AN AC IA TO ACCA 




♦IF INPFLG 

= 0, INPUT 

IS FROM TERMINAL AC IA 




♦IF INPFLG 

= 1, INPUT 

IS FROM ANY AC IA 




♦ACCB & IX 

ARE PRESERVED 

FE 5 9 

FF 

7 0CE 

INPCHR STX 

XTEMP 

SAVE IX 

FE 5 C 

7 D 

7 0 2 3 

TST 

INPFLG 

TEST INPUT SOURCE FLAG 

FE 5 F 

26 

0 5 

BNE 

INPCH1 





♦ INP FLG= 0: 

INPUT FROM 

TERMINAL AC I A 

FE6 1 

CE 

7 F43 

LDX 

#ACIA1 



61 



F E 6 4 

20 

03 


BRA 


INPCH2 





*INPFLG 

= 1 : 

INPUT FROM 

ANY AC I A 

F E 6 6 

FE 

70 2 4 

INPCH1 

LDX 


INPADR 

GET ITS ADDRESS 

F E 6 9 

09 


INPCH2 

DEX 



POINT TO CONTROL REG 

F E 6 A 

A 6 

00 

INPCH3 

LDA 

A 

X 

GET ACIA STATUS BYTE 

FE6C 

8 5 

0 1 


B I T 

A 


CHAR WAITING? 

F E 6 E 

2 7 

FA 


BEQ 


INPCH3 

IF NOT, TRY AGAIN 

F E 7 0 

A 6 

0 1 


LDA 

A 

1 ,x 

YES, GET IT 

F E 7 2 

FE 

7 OCE 


LDX 


XTEMP 

RESTORE IX 

F E 7 5 

3 9 



RTS 





* 


* OUT PUT THE CHARACTER IN ACCA TO THE DESIRED OUTPUT 


* 




DEV ICE/LOCAT1 ON 


* 

I F 

OUT F LG = 0 , 

OUTPUT 

IS TO TERMINAL 


* 

I F 

OUT F LG = 1 , 

OUTPUT 

IS TO ACIA ADDRESS STORED 

I N 

* 




OUTADR 


* 

I F 

OUT F LG - 2, 

OUTPUT 

IS TO ADDRESS IN OUTADR & 

TH I S 

* 




ADDR IS THEN INCREMENTED 



* ACCA , ACC B, & IX ARE PRESERVED 


F E 7 6 

3 7 


OUTCHR PSH B 


SAVE 

ACC B 

F E 7 7 

7 D 

7 0 2 6 

T ST 

OUT F LG 

TEST 

OUTPUT DESTINATION FLAG 

F E 7 A 

2 7 

2 1 

BEQ 

* 

OUTCH4 

SKIP THIS CODE IF TERMINAL 

OUTPUT 


FE7C 

FF 

7 OCE 

* OUT PUT TO 

STX 

SOMETH ING 

XTEMP 

OTHER THAN TERMINAL 

SAVE IX 

F E 7 F 

FE 

7 0 2 7 

LDX 


OUTADR 

GET OUTPUT CHAR DESTINATION 

F E 8 2 

C 6 

0 2 

* 

LDA 

B 

#2 

ADDRESS 

F E 8 4 

F 1 

7 0 2 6 

CMP 

B 

OUT F LG 


FES 7 

2 7 

0 9 

BEQ 


OUTCH2 






* OUT F LG = 1 

i : 

ANY ACIA 

OUTPUT 



FES 9 

0 9 


DEX 



PO I NT 

TO ACIA STATUS 

REG 

FES A 

E 5 

00 

OUTCH1 BIT 

B 

X 

TEST 

TDRE BIT 


FESC 

2 7 

FC 

BEQ 


OUTCH1 

LOOP 

IF NOT READY TO 

ACCEPT 




* 



NEW 

CHAR 


FES E 

A 7 

0 1 

STA 

A 

1 , x 

NOW READY - SEND IT 


F E 9 0 

2 0 

0 6 

BRA 


OUTCH 3 








* OUT F LG 

= 2 : 

MEMORY 

OUTPUT 

F E 9 2 

A 7 

0 0 

OUTCH2 

STA A 

X 

SAVE CHAR IN MEMORY 

F E 9 4 

0 8 



I NX 



F E 9 5 

FF 

7 0 2 7 


STX 

OUTADR 

UPDATE OUTPUT ADDRESS 

F E 9 8 

FE 

7 OCE 

OUTCH 3 

LDX 

XTEMP 

RESTORE IX 

F E 9 B 

3 3 



PUL B 


RESTORE ACC B 

FE9C 

3 9 



RTS 







* OUT F LG = 0: 

TERMINAL ACIA OUTPUT 




* IGNORE LINE 

FEEDS 

FE9D 

8 1 

0A 

OUTCH4 CMP A 

# L F 

F E 9 F 

2 6 

0 2 

BNE 

OUTCH5 


62 




TEST FOR CARRIAGE RETURN 


FEA 1 

3 3 

PUL B 

FEA2 

39 

RTS 


FEA3 

8 1 

OD 

DUTCH 5 CMP 

A 

#CR 

F E A 5 

26 

04 

BN E 


OUTCH6 

FEA 7 

8 D 

1 E 

BSR 


DOCRLF 

F E A 9 

3 3 


PUL 

B 


F E A A 

3 9 


RTS 




FEAB 

F 6 

7 0 2 A 

OUTCH6 LDA 

B 

CPLCNT 

GET "CHARACTERS PER LINE" COUNT 

FEAE 

F 1 

7 0 2 B 

CMP 

B 

CPLMAX 

COMPARE TO MAX PERMISSIBLE 

FEB 1 

2 C 

OB 

BGE 


OUTCH7 

SEND CR-LF IF GREATER 




* L E S S THAN 

MAX, BUT 

ALSO SEND CR-LF IF 10 FROM END AND 




* 



PRINTING A SPACE 

FEB3 

CB 

0A 

ADD 

B 

#10 


FEB5 

F 1 

7 0 2 B 

CMP 

B 

CPLMAX 


FEB8 

2D 

06 

BLT 


OUTCH8 


FEBA 

8 1 

2 0 

CMP 

A 

#$20 

NEAR END, TEST IF ABOUT TO 




* 



PRINT A SPACE 

FEBC 

2 6 

0 2 

BNE 


OUTCH8 






♦TERMINAL LINE FULL OR NEARLY FULL - 

INTERJECT A CR-LF 

FEBE 

8 D 

0 7 

OUTCH7 BSR 

DOCRLF 


FEC0 

7 C 

7 0 2 A 

OUTCH8 INC 

CPLCNT BUMP COUNTER 


F EC 3 

8 D 

2 0 

BSR 

TOACIA SEND IT TO AC IA 1 

F EC 5 

3 3 


PUL B 



F EC 6 

3 9 


RTS 






♦SEND A CARRIAGE RETURN-LINE FEED TO 

THE TERMINAL 




* ACCA, ACCB, 

& IX ARE PRESERVED 


F EC 7 

3 6 


DOCRLF PSH A 



F EC 8 

3 7 


PSH B 



F EC 9 

8 6 

0D 

LDA A 

#CR 


F EC B 

8 D 

1 8 

BSR 

TOACIA 


FECD 

8 6 

0A 

LDA A 

# lf 


F EC F 

8 D 

1 4 

BSR 

TOACIA 



♦ALLOW TIME FOR THE CARRIAGE TO RETURN BY SENDING NULL 
* CHARACTERS 

♦SEND 1 NULL PER 16 CHARACTERS 





♦DIVIDE CPLCNT 

BY 1 6 


F ED 1 

F 6 

7 0 2 A 

LDA 

B 

CPLCNT 


FED4 

54 


LSR 

B 



F ED 5 

54 


LSR 

B 



FED6 

54 


LSR 

B 



F ED 7 

54 


LSR 

B 



FED8 

5 C 


INC 

B 


ALWAYS SEND AT LEAST 1 NULL 

FED9 

4 F 


DOCRL1 CLR 

A 


GET A NULL 

FEDA 

8 D 

09 

BSR 


TOACIA 

SEND IT 

FEDC 

5 A 


DEC 

B 



FEDD 

26 

FA 

BNE 


DOCRL1 


FEDF 

7 F 

7 0 2 A 

CLR 


CPLCNT 

ZERO "CHARACTERS PER LINE" COUNT 


63 



FEE2 

33 



PUL 

B 




FEE3 

3 2 



PUL 

A 




FEE4 

3 9 


* 

RTS 


II 

il 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ii 

ll 

ll 

ll 

ll 

ll 

ll 

ii 

ll 

it 

ll 

II 

II 

II 

II 

II 




•PUT CHAR 

IN 

ACCA INTO 

TERMINAL AC I A 





* ACCA, 

ACCB , 

& IX ARE 

PRESERVED 


FEE 5 

3 6 


TOACI A 

PSH 

A 


SAVE CHAR 


FEE6 

86 

02 


LDA 

A 

#2 

GET ACIA TRANSMIT REG 

STATUS BIT 

FEE8 

B 5 

7F42 

TOAC 1 1 

B I T 

A 

AC I A 1 - 1 

REGISTER EMPTY? 


FEEB 

27 

FB 


BEQ 


TOACI 1 

IF NOT, LOOP BACK 


FEED 

3 2 



PUL 

A 


YES, RESTORE CHARACTER 


FEEE 

B 7 

7F43 


STA 

A 

AC 1 A 1 

SEND IT 


FEF1 

3 9 



RTS 








* 


= = = 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 




•Ml SC 

TEXT 





FEF2 

4 D 


MSGHED 

FCC 


'MONDEB 

1.00' MONITOR HEADER TYPEOUT 

FEF3 

4 F 








FEF4 

4 E 








FEF5 

44 








FEF6 

4 5 








FEF7 

42 








FEF8 

20 








FEF9 

3 1 








F E FA 

2 E 








FEFB 

30 








FEFC 

3 0 








FEFD 

OD 



FCB 


CR , 4 



FEFE 

04 








FEFF 

2 A 


MSGPRM 

FCB 


' * , 4 

PROMPT STRING 


FFOO 

04 








FFO 1 

OD 


MSGSWI 

FCB 


CR 



FF02 

5 3 



FCC 


' SWI : ' 



FF03 

5 7 








FF04 

49 








FF05 

3 A 








F F 0 6 

04 



FCB 


4 



F F 0 7 

54 


MSGLTL 

FCC 


'TOO LONG' TYPED IF INPUT LINE 

1 s 

FF08 

4 F 








FF09 

4 F 








F F 0 A 

20 








FFOB 

4C 








FFOC 

4 F 








FFOD 

4 E 








FFOE 

4 7 


* 




TOO LONG 


FFOF 

04 



FCB 


4 



FF1 0 

4 E 


MSGNBR 

FCC 


'NOT SET' 

BREAK NOT SET 


FF1 1 

4 F 








FF 1 2 

54 








FF 1 3 

20 








FF 1 4 

5 3 








FF 1 5 

45 








FF 1 6 

54 








FF1 7 

04 



FCB 


4 



FF1 8 

53 


MSGBAT 

FCC 


'SET @ ' 

BREAK AT - 
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FF1 9 

45 

FFI A 

54 

FF1 B 

20 

FF1C 

40 

FF1D 

20 

FFI E 

04 

FFI F 

4 F 

F F 2 0 

4 B 

F F 2 1 

04 

F F 2 2 

4 3 

FF2 3 

48 

F F 2 4 

4 5 

FF2 5 

4 3 

F F 2 6 

4 B 

F F 2 7 

5 3 

F F 2 8 

5 5 

F F 2 9 

4 D 

F F 2 A 

20 

FF2B 

4 5 

FF2C 

52 

FF2D 

5 2 

FF2E 

4 F 

FF2 F 

5 2 

F F 3 0 

20 

FF3 1 

04 

F F 3 2 

4 3 

FF3 3 

4 1 

F F 3 4 

4 E 

F F 3 5 

54 

F F 3 6 

20 

F F 3 7 

43 

F F 3 8 

4C 

F F 3 9 

4 5 

F F 3 A 

4 1 

F F 3 B 

52 

FF 3 C 

04 

FF 3 D 

43 

FF3 E 

4 1 

FF3F 

4 E 

FF40 

54 

FF4 1 

20 

FF42 

5 3 

FF43 

45 

FF44 

54 

FF45 

20 

FF46 

54 

FF47 

4 F 

FF48 

20 

FF49 

4 F 

FF4A 

4 E 

FF4B 

45 

FF4C 

5 3 

FF4D 

04 

FF4E 

53 

FF4F 

55 


FCB 4 

MSGVER FCC 'OK' CHECKSUM VERIFIES 

FCB 4 

MSGNVE FCC 'CHECKSUM ERROR ' FOR VERIFY & 


FCB 

MSGCCL FCC 


LOAD COMMANDS 
4 

'CANT CLEAR' TEST COMMAND 


FCB 4 

MSGCSO FCC 'CANT SET TO ONES' TEST COMMAND 


FCB 4 

MSGS IS FCC 'SUM IS ' COMPARE COMMAND 



F F 5 0 

4 D 

F F 5 1 

20 

F F 5 2 

49 

F F 5 3 

5 3 

F F 5 4 

20 

F F 5 5 

04 

F F 5 6 

2 C 

F F 5 7 

20 

F F 5 8 

44 

F F 5 9 

49 

F F 5 A 

4 6 

F F 5 B 

20 

FF5C 

4 9 

FF5D 

5 3 

F F 5 E 

2 0 

F F 5 F 

04 

F F 6 0 

OD 

F F 6 1 

OA 

F F 6 2 

00 

F F 6 3 

5 3 

F F 6 4 

3 0 

F F 6 5 

3 0 

F F 6 6 

3 6 

F F 6 7 

3 0 

F F 6 8 

3 0 

F F 6 9 

3 0 

F F 6 A 

30 

F F 6 B 

3 4 

FF6C 

3 8 

FF6D 

3 4 

F F 6 E 

34 

F F 6 F 

3 5 

FF7 0 

3 2 

F F 7 1 

3 1 

F F 7 2 

4 2 

F F 7 3 

04 

F F 7 4 

OD 

F F 7 5 

OA 

F F 7 6 

00 

F F 7 7 

00 

F F 7 8 

5 3 

F F 7 9 

3 1 

F F 7 A 

04 

FF 7 B 

OD 

FF7C 

OA 

FF7D 

00 

FF7E 

5 3 

F F 7 F 

39 

FF8 0 

30 

F F 8 1 

3 3 

F F 8 2 

30 

F F 8 3 

30 

F F 8 4 

30 

F F 8 5 

30 

F F 8 6 

46 

F F 8 7 

43 


FCB 4 

MSGDIS FCC DIF IS ' COMPARE 


FCB 4 

MSGS 0 FCB CR.LF.O 


FCC 'S0060000484452IB' 


FCB 4 

MSGS 1 FCB CR,LF,0,0, ' S, ' 1 , 4 


MSGS 9 FCB CR.LF.O 


FCC 'S9030000FC' 


COMMAND 
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FCB 


CR, LF, 4 


FF8 8 OD 
F F 8 9 OA 
F F 8 A 04 
FF8B 43 
FF8C 48 
FF8D 4 1 
FF8E 52 
FF8F 20 
F F 9 0 4 E 
F F 9 1 4 F 

F F 9 2 5 4 

F F 9 3 2 0 

F F 9 4 4 8 
F F 9 5 4 5 

F F 9 6 5 8 

F F 9 7 OD 
F F 9 8 0 4 


♦INTERRUPT HANDLING CODE 


F F 9 9 

FE 

7 0 0 0 

INTADR 

LDX 

I NTV EC 


FF9C 

6 E 

00 

****** 

JMP 

X 


F F 9 E 

FE 

7 0 0 2 

NMIADR 

LDX 

NMIVEC 


F FA I 

6 E 

00 

****** 

JMP 

X 


F FA 3 

7 E 

F 4 0 0 

RESADR 

JMP 

START 





****** 




F FA 6 

BF 

7 0 0 6 

SWIADR 

STS 

SP 

SAVE STACK POINTER OF PROGRAM 




* 



BEING DEBUGGED 

F FA 9 

FE 

7 00 4 


LDX 

SWI VEC 


F FAC 

6 E 

00 

****** 

JMP 

X 




* 

RMB 

START+SC00 - 8 - 6 3 - * BLANK SPACE TO 


* 


INTERRUPT VECTORS 

FFB9 


ORG 

$ FFB9 AS CALCULATED 


* 


BY PREVIOUS LINE 


FFB9 

7 E 

F9BD 

* * 

********* 

JMP 

********** 

TIMDEL 

**************** 

TIME DELAY FOR # OF MS 

FFBC 

7 E 

F 7 5 7 

* 

JMP 

CKSUM 

SPECIFIED BY IX 

RETURN CHECKSUM OF AN ADDRESS 

FFBF 

7 E 

FCC0 

* 

JMP 

GETCHR 

RANGE IN ACCA 

RETURN (IN ACCB) CHAR POINTED 

FFC2 

7 E 

FCCD 

* 

JMP 

GETLST 

TO BY LINPTR 

RETURN (IN ACCA) CHAR POINTED 

FFC5 

7 E 

FA FC 

* 

JMP 

GTRANG 

TO BY LISPTR 

PICK UP AN ADDRESS RANGE IN 

FFC8 

7 E 

FB47 

* 

JMP 

NUMBER 

RANGLO & RANGHI 

PICK UP A NUMBER & RETURN IT IN 

FFCB 

7 E 

FA6 9 

* 

JMP 

SKPDLM 

NBRHI & NBRLO 

SKIP OVER INPUT LINE DELIMITERS 

FFCE 

7 E 

FA 9 4 


JMP 

TSTDLM 

TEST CHAR IN ACCB FOR A 


MSGCNH FCC 'CHAR NOT HEX' USED IN LOAD COMMAND 


FCB CR , 4 


* — 
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DELIMITER 


FFD1 

7 E FA 8 9 

* 

JMP 

TSTEOL 

TEST CHAR IN ACCA FOR 

END-OF-LINE 

FFD4 

7 E F 9 C 7 

* 

JMP 

COMAND 

SEARCH SPECIFIED COMMAND LIST 
FOR A COMMAND 

FFD7 

7 E FA 2 E 

* 

JMP 

TYPCMD 

TYPES OUT COMMAND NUMBER 

"COMNUM" IN LIST ACCA 

F FDA 

7 E FBFD 

* 

JMP 

OUT 1 BY 

DISPLAY THE 1 BYTE NUMBER 

POINTED AT BY IX 

F FDD 

7 E FC 0 4 

* 

JMP 

OUT 2 BY 

DISPLAY THE 2 BYTE NUMBER 
POINTED AT BY IX 

FFEO 

7 E FD8C 

* 

JMP 

GETLIN 

GET A LINE OF INPUT INTO THE 

TTY BUFFER 

FFE3 

7 E FE4B 


JMP 

OUTSTR 

OUTPUT CHAR STRING IX POINTS TO 

FFE6 

7 E FEC7 

* 

JMP 

DOCRLF 

SEND CR-LF WITH DELAY & ZERO 
LINE COUNT 

FFE9 

7 E F E 7 6 

* 

JMP 

OUTCHR 

LIKE TOACIA, BUT WITH FOLDING, 
CR DELAY, & LF INSERTION 

F F EC 

7 E FEE 5 


JMP 

TOACI A 

SEND ACCA TO AC I A 1 

FFEF 

7 E F E 5 9 

* 

JMP 

INPCHR 

GET A CHAR FROM AN AC IA & 

RETURN IT IN ACCA 

FFF2 

7 E F425 


JMP 

PROMPT 

TO PROMPT FOR NEW COMMAND 

FFF5 

7 E F400 

JMP 

*********** 

* INTERRUPT 

START 

********** 

VECTORS 

START OF MONDEB 
**************** 

FFF8 

F F 9 9 

FFF8 

FDB 

INTADR 

REGULAR INTERRUPT 

F F FA 

F FA 6 


FDB 

SWI ADR 

SOFTWARE INTERRUPT 

FFFC 

FF9E 


FDB 

NMIADR 

NON-MASKABLE INTERRUPT 

FFFE 

7 0 0 0 

F FA 3 

FDB 

* - 

* VAR IABLES 

ORG 

RESADR 

FOR INTER- 

$ 7 000 

RESET INTERRUPT 

ROUTINE COMMUNICATION 

7 000 

0002 

INTVEC 

RMB 

2 

INTERRUPT ADDRESS POINTER 

7002 

0002 

NMIVEC 

* 

RMB 

2 

NON-MASKABLE INTERUPT ADDRESS 
POINTER 

7004 

0002 

SWIVEC 

* 

RMB 

2 

SOFTWARE INTERRUPT ADDRESS 
POINTER 

7 00 6 

0002 

SP 

RMB 

2 

SAVED STACK POINTER 

7008 

0 0 0 2 

COMADR 

* 

RMB 

2 

ADDRESS OF BEGINNING OF COMMAND 
LISTS FOR COMAND 

7 0 0 A 

0002 

SYNPTR 

* 

RMB 

2 

INPUT LINE CHARACTER POINTER 

FOR GOOD SYNTAX 

7 0 0 C 

0 0 0 2 

LINPTR 

* 

* 

RMB 

2 INPUT LINE CHARACTER POINTER 

(CONTENT = OR > CONTENT OF SYNP 

TR) 

7 0 0 E 

000 1 

BOLFLG 

RMB 

1 

"BEGINNING OF LINE" FLAG 

7 0 0 F 

0 0 0 1 

DEL IM 

* 

RMB 

1 

CHARACTER(S) PERMITTED AS VALID 
COMMAND/MODIFIER DELIMITER 
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70 10 

000 1 

1BCODE RMB 

* 

1 

INPUT BASE ( 1=H EX, 2=DEC, 

3 =OCT) 

70 11 

000 1 

DBCODE RMB 

* 

1 

DISPLAY BASE (1=HEX, 2=DEC, 

3 =OCT, 4 = BIN) 

70 12 

0 00 1 

DBNBR RMB 

* 

1 

DISPLAY BASE NUMBER (E.G., 
16,10,8, OR 2) 

70 13 

000 1 

NBRHI RMB 

* 

1 

MOST SIGNIFICANT BYTE OF 

SCANNED NUMBER 

7 0 14 

0 00 1 

NBRLO RMB 

* 

1 

LEAST SIGNIFICANT BYTE OF 

SCANNED NUMBER 

70 15 

0002 

RANGLO RMB 

* 

2 

RANGE LOWER LIMIT PICKED UP BY 

GTRANG 

70 17 

0 0 0 2 

RANGHI RMB 

* 

2 

RANGE UPPER LIMIT PICKED UP BY 

GTRANG 

70 19 

0002 

LASTGO RMB 

2 

LAST SPECIFIED GOTO ADDRESS 

70 1 B 

0002 

VERFRM RMB 

* 

2 

BEGINNING ADDRESS OF RANGE TO 

CHECKSUM VERIFY 

70 ID 

0002 

VERTO RMB 

* 

2 

ENDING ADDRESS OF RANGE TO 

CHECKSUM VERIFY 

70 1 F 

000 1 

CHKSUM RMB 

* 

1 

CHECKSUM OF RANGE GIVEN IN THE 

VERIFY COMMAND 

70 2 0 

0002 

BRKADR RMB 

2 

ADDRESS OF INSERTED BREAKPOINT 

7 0 2 2 

000 1 

BRKINS RMB 

* 

1 

INSTRUCTION WHICH SHOULD BE 

THERE NORMALLY 

7 0 2 3 

000 1 

INPFLG RMB 

1 

ALTERNATE INPUT DESTINATION FLAG 

7 0 24 

0002 

INPADR RMB 

* 

* 

2 

ALTERNATE ADDRESS THAT THE 

INPUT CHARACTERS ARE TO COME FR 

OM 

7 0 2 6 

000 1 

OUTFLG RMB 

* 

■ 

ALTERNATE OUTPUT DESTINATION 

FLAG 

7 0 2 7 

0002 

OUTADR RMB 

* 

2 

ALTERNATE ADDRESS THAT THE 

OUTPUT CHARACTERS ARE TO GO TO 

7 0 2 9 

000 1 

HDXFLG RMB 

* 

1 

HALF-DUPLEX TERMINAL FLAG (IF 

NON-ZERO, NO ECHO) 

7 0 2 A 

000 1 

CPLCNT RMB 

1 

"CHARACTERS PER LINE" COUNT 

7 0 2 B 

000 1 

CPLMAX RMB 

1 

"CHARACTERS PER LINE” MAXIMUM 

7 0 2 C 

0002 

BUFBEG RMB 

2 

INPUT LINE START OF BUFFER 

7 0 2 E 

0002 

BUFEND RMB 

2 

INPUT LINE END OF BUFFER 

70 3 0 

0048 

TTYBUF RMB 

72 

START OF INPUT LINE BUFFER 

7 07 8 

000 1 

TTYEND RMB 

1 

END OF INPUT LINE BUFFER 

7079 

00 3 8 

RMB 

56 

MAIN STACK STORAGE 
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7 0 B 1 


7 0 B8 
7 0 BA 
7 0 BC 
7 0 BE 
7 OCO 
7 0 C 2 
7 0 C 4 
7 0 C 6 
7 0 C 8 
7 OCA 
7 OCC 


7 OCE 
7 ODO 
7 0 D 2 
7 OD4 
7 0 D 5 
7 0D6 
7 0 D 7 
7 0D9 

7 ODA 
7 ODB 
7 0 DC 
7 ODE 
7 0 E 0 

7 0 E 1 


0007 STACK RMB 

* 


STACK STORAGE FOR RTI 
INSTRUCTION 



♦TEMPORARY 

(LOCALLY 

USED) 

VAR IABLES 

0 0 0 2 

TEMP 1 

RMB 

2 

IN 

MAIN 

0 0 0 2 

TEMP2 

RMB 

2 

IN 

MA IN 

0 0 0 2 

TEMP3 

RMB 

2 

IN 

FNDSTR,MA 

0 0 0 2 

TEMP4 

RMB 

2 

IN 

MA I N 

0 0 0 2 

TEMP 5 

RMB 

2 

IN 

MA IN 

0 0 0 2 

TEMP6 

RMB 

2 

IN 

MA IN 

0 0 0 2 

TEMP7 

RMB 

2 

IN 

MAIN 

0 0 0 2 

TEMPS 

RMB 

2 

IN 

MAIN 

0 0 0 2 

TEMP9 

RMB 

2 

IN 

MAIN 

0 0 0 2 

TEMP 1 0 

RMB 

2 

IN 

MAIN 

0 0 0 2 

TEMP 1 1 

RMB 

2 

IN 

MAIN 



* XT EMP 

I S NOT 

TO 

BE USED TO 

SAVE IX BETWEEN ROUTINES 

0 0 0 2 

XTEMP 

RMB 

2 

USED 

BY 

DUMP,TYPCMD,OUTNUM 

0 0 0 2 

XT EMP 1 

RMB 

2 

USED 

BY 

OUTNUM 

0 0 0 2 

XT EMP 2 

RMB 

2 

USED 

BY 

NUMBER 

0 0 0 1 

NUMMAT 

RMB 

1 

USED 

IN 

COMMAND 

0 0 0 1 

LISNUM 

RMB 

1 

USED 

ON 

COMMAND 

0 0 0 1 

COMNUM 

RMB 

1 

USED 

IN 

COMMAND 

0 0 0 2 

LISPTR 

RMB 

2 

USED 

IN 

COMMAND 

0 0 0 1 

DECDIG 

RMB 

1 

DECIMAL 

DIGIT BEING BUILT 


* 



(DECIMAL OUTPUT BASE) 

0 0 0 1 

NUMBHI 

RMB 

1 

USED 

BY 

OUTNUM 

0 0 0 1 

NUMBLO 

RMB 

1 

USED 

BY 

OUTNUM 

0 0 0 2 

NBR2X 

RMB 

2 

USED 

BY 

NUMBER 

0 0 0 2 

TIMCON 

RMB 

2 

DELAY 

TIME CONSTANT 

0 0 0 1 

BYTECT 

RMB 

I 

RECORD BYTE COUNT USED IN LOAD 


* 



COMMAND 

0 0 0 1 

CKSM 

RMB 

1 

RECORD CHECKSUM USED IN LOAD 


COMMAND 


♦CONVENIENT EQUIVALENCES FOR LOCAL 


7 0 B 8 

MEMADR 

EQU 

TEMP 1 

DI SPLAY ,SET 

7 0 BA 

STRNUM 

EQU 

T EMP 2 

FNDSTR 

7 0 B B 

EOSCHR 

EQU 

T EMP 2 +1 

FNDSTR 


♦FOR " S 

E A R C H " 

COMMAND 


7 0 BA 

BYTPTR 

EQU 

T EMP 2 


7 0 BC 

NBYTES 

EQU 

T EMP 3 


7 0 BD 

NBRMAT 

EQU 

TEMP3+1 


7 0 B E 

BYTSTR 

EQU 

T EMP 4 




END 




VARIABLES 
SEARCH,TEST 
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SYMBOL 

AC i A 1 

TABLE 

7 F 4 3 

DIS PL 2 

F 6 3 7 

INPCH3 

FE 6 A 

NUMLUP 

FB 6 0 

SET 3 

F 6 9 7 

AC I A2 

7 F4 5 

D I S P L 3 

F 6 4 4 

INPCHR 

FE 5 9 

NUMMAT 

70D4 

SET 4 

F6A9 

BADS 1 

F 4 5 A 

D I S P L 4 

F 6 4 D 

INPFLG 

7 0 2 3 

NXTCHR 

FD9 0 

SETS 

F6C6 

BADS 2 

F 4 6 5 

D I S P L 5 

F 6 4 F 

INT 

F 8 4 4 

OCTNUM 

FBBC 

SET 6 

F 6 E 4 

BADSYN 

F 4 5 7 

DISPL6 

F6 5 4 

INTADR 

F F 9 9 

OUT 1 BY 

FB FD 

SET 7 

F 6 EC 

BAKSLA 

00 5C 

DISPL7 

F6 5 F 

INTVEC 

7 0 0 0 

OUT 2 

F4E3 

SET8 

F6F4 

BLDADR 

F9 7 8 

D1SPL8 

F6 6 2 

ISDLM2 

FAA8 

OUT 2 A4 

F4F2 

SET9 

F 7 0 1 

BOLFLG 

7 0 0 E 

DISPL9 

F 6 6 D 

ISDLM3 

FAB 2 

OUT2 BY 

FC 0 4 

SHFTER 

FBED 

BREAK 

F5 5 8 

D I SPLA 

F 6 0 8 

ISDLM4 

FABC 

OUT 4 

F4EA 

SHIFT 

FBE4 

BREAK 1 

F 5 6 D 

DISREG 

F 4 C 7 

JMP 2 5 6 

F 4 0 0 

OUTADR 

7 0 2 7 

SHIFT2 

FBDF 

BREAK 2 

F5 7 E 

DLMNO 

FAD 3 

JMPCMD 

F4 7 6 

OUTBAK 

FDE 2 

SKPDL1 

FA6F 

BREAK 3 

F 5 8 E 

DLMYES 

FAD0 

JMPHI 

0 0 F 4 

OUTBIN 

FC9F 

SKPDL2 

FA7 A 

BREAK4 

F 5 A 6 

DOCRL1 

FED9 

JMP LO 

0 0 8 5 

OUTCH1 

FE 8 A 

SKPDL 3 

FA8 1 

BREAKS 

F 5 B 2 

DOCRLF 

F EC 7 

JMPTBL 

F4 8 5 

OUTCH2 

FE9 2 

SKPDLM 

FA6 9 

BREAK 6 

F 5 B 5 

DUMP 

F8 8 5 

LASTGO 

70 19 

OUTCH3 

FE9 8 

SP 

7006 

BRKADR 

7 0 2 0 

DUMP 1 

F8 8 B 

LASWAS 

F E 0 2 

OUTCH4 

FE 9 D 

STACK 

7 0 B 1 

BRKINS 

7 0 2 2 

DUMP 10 

F 9 1 0 

LE F SHF 

FCB 8 

OUTCH5 

FEA3 

START 

F400 

BUFBEG 

7 0 2C 

DUMP 2 

F8 9 2 

LF 

0 0 0 A 

OUTCH6 

FEAB 

STORIT 

FDD8 

BUFEND 

7 0 2 E 

DUMP 3 

F 8 9 A 

LINPTR 

7 0 0 C 

OUT CH7 

FEBE 

STRNUM 

7 0 BA 

BYTECT 

7 0 E 0 

DUMP 4 

F 8 A 5 

LISNUM 

7 0 D 5 

OUT CH 8 

FEC0 

SUMNUM 

FAD6 

BYTPTR 

7 0 BA 

DUMPS 

F 8 AD 

L I SPTR 

7 0 D 7 

OUTCHR 

FE7 6 

SWI 

F8 54 

BYTSTR 

7 0 BE 

DUMP 6 

F 8 B 5 

LOAD 

F 9 2 4 

OUTDE1 

FC4B 

SWI ADR 

FFA6 

Cl 00 

FC 7 B 

DUMP 7 

F 8 C 7 

LOAD 1 

F 9 3 6 

OUTDE2 

FC 5 2 

SWI VEC 

7004 

C 1 OK 

FC 7 7 

DUMP 8 

F 8 C 9 

LOAD2 

F9 5 5 

OUTDE 3 

FC5 5 

SYNPTR 

7 0 0 A 

CHKSUM 

7 0 1 F 

DUMP 9 

F 8 E 9 

LOAD 3 

F 9 6 1 

OUTDE4 

FC 6 0 

TEMP 1 

7 0 B 8 

CKSM 

7 0 E 1 

ECHO 

FDE 9 

LOAD4 

F9 7 2 

OUTDE 5 

FC 7 2 

TEMP 10 

7 OCA 

CKSUM 

F7 5 7 

ECHO 1 

FDF 1 

LSH2 

FCB 3 

OUTDEC 

FC 3 D 

TEMP 1 1 

7 0 CC 

CKSUM1 

F 7 SC 

EOSCHR 

7 0 B B 

MATCH 

FA0 7 

OUTEND 

FES 7 

TEMP 2 

7 0 BA 

CL I 

F5 29 

ERROR 

FADS 

MEMADR 

7 0 B 8 

OUTEQ 

FB F 7 

TEMP 3 

7 0 BC 

CMD 3 

F 9 E 3 

FFF8 

FFF8 

MFA I L 

FA 2 B 

OUT F LG 

7 0 2 6 

TEMP4 

7 0 B E 

CMD4 

F9 EC 

FNDST1 

FAS 8 

MSGBAT 

FF 1 8 

OUTHEX 

FC2 7 

TEMPS 

7 0C0 

COMADR 

7 00 8 

FNDST2 

FA 5 E 

MSGCCL 

F F 3 2 

OUT IT 

FCAD 

TEMP 6 

7 0C2 

COMAND 

F 9 C 7 

FNDST 3 

FA 6 8 

MSGCNH 

F F 8 B 

OUTNUM 

FC 0 B 

TEMP7 

7 0C4 

COMLST 

FCD 7 

FNDSTR 

FA 5 1 

MSGCSO 

FF3D 

OUTOC1 

FC8D 

TEMP 8 

7 0 C 6 

COMNUM 

70D6 

GETCHR 

FCC 0 

MSGDIS 

F F 5 6 

OUTOCT 

FC 8 1 

TEMP 9 

7 0 C 8 

COMPA1 

F8 7 8 

GETCMD 

F 4 4 E 

MSGHED 

FEF2 

OUT P 2 

F9 ID 

TEST 

F 7 ED 

COMPAR 

F 8 SC 

GET I T 

FD9E 

MSGLTL 

F F 0 7 

OUT SD 

F 8 7 B 

TEST 1 

F 7 F 8 

CONERR 

FBD9 

GETLIN 

FD8C 

MSGNBR 

FF 1 0 

OUTS P 

FB F 1 

TEST 2 

F 8 0 6 

CONTIN 

F 6 0 4 

GETLST 

FCCD 

MSGNVE 

F F 2 2 

OUTST1 

FE4C 

TEST 3 

F 8 1 3 

COPY 

F 5 2 C 

GOTO 

F 5 1 4 

MSGPRM 

FEFF 

OUT STR 

FE4B 

TEST4 

F8 24 

COPY 1 

F 5 3 9 

GOTO 1 

F 5 2 1 

MSGS 0 

F F 6 0 

PROMP1 

F434 

TIMCON 

7 ODE 

COP Y 2 

F5 5 2 

GTRAN1 

FB0 3 

MSGS 1 

F F 7 4 

PROMPT 

F425 

TIMDE1 

F 9 CO 

COPY 3 

F5 5 5 

GTRAN2 

FB0B 

MSGS 9 

FF7B 

RANGHI 

70 17 

TIMDEL 

F9BD 

CPLCNT 

7 0 2 A 

GTRAN3 

FB 1 8 

MSGS IS 

FF4E 

RANGLO 

70 15 

TOACI1 

F EE 8 

CPLMAX 

7 0 2 B 

GTRAN4 

FB 2 0 

MSGSWI 

FF0 1 

RDBYTE 

F9 8 6 

TOACIA 

FEES 

CR 

0 0 0 D 

GTRAN5 

FB2 6 

MSGVER 

FF 1 F 

REG 

F4C7 

TSTCMA 

FAAC 

DBASE 

F5CE 

GTRAN6 

F B 2 7 

NBR2X 

7 0DC 

RESADR 

FFA3 

TSTCR 

FDAB 

DBASE 1 

F5D9 

GTRAN7 

FB2D 

NBRHI 

70 13 

RUBNOW 

FDF 3 

TSTCR1 

FDB 3 

DBASE 2 

F5DF 

GTRAN8 

F B 3 0 

NBRLO 

70 14 

SEAR 10 

F7EA 

TSTCR2 

FDBE 

DBASE 3 

F5 EE 

GTRANG 

FA FC 

NBRMAT 

7 0BD 

SEARC1 

F 7 7 4 

TSTDLM 

FA9 4 

DBAS E 4 

F 5 F 2 

GUDNUM 

FBCD 

NBYTES 

7 0 BC 

SEARC2 

F 7 9 3 

TSTEOl 

FA9 3 

DBCODE 

70 11 

HDXFLG 

7 0 2 9 

NEXCOM 

FA 1 B 

SEARC3 

F 7 9 F 

TSTEOL 

FA 8 9 

DBNBR 

7 0 12 

HEXN1 

F B 8 9 

NMATCH 

FA 1 1 

SEARC4 

F7AB 

TTYBUF 

7 0 3 0 

DBTBL 

F5EA 

HEXNUM 

FB7B 

NMI 

F84C 

SEARC5 

F 7 B 8 

TTYEND 

7 0 7 8 

DECDIG 

7 0D9 

I BASE 

F 5 B 8 

NMIADR 

FF 9 E 

SEARC6 

F7BB 

TYPCM1 

FA40 
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DECNUM FB9 5 
DELAY F9B5 
DELETE 0 0 7 F 
DELIM 7 0 0 F 
D1FNUM FA E 9 
DISNU1 FC 2 8 
DISNU2 FC 3 6 
DISNU3 FC 9 2 
DISNU4 FCA 2 
D1SP10 F6 7 0 
D1SPL1 F6 2 0 


I BASE 1 F 5C 3 
I BAS E 2 F 5 C 8 
iBCODE 7010 
INHEX F9 9 8 
I NHEX 1 F9 AD 
INHEX2 F 9 A E 
INILST F 9 D1 
INITAL F E 0 8 
INPADR 7024 
INPCH1 F E 6 6 
INPCH2 F E 6 9 


NMIVEC 7002 
NOMORE F46F 
NOTCTC FDCA 
NOTEOL FDBF 
NULLS F9I3 
NULLS 1 F 9 1 6 
NUMBER FB4 7 
NUMBHI 7 0DA 
NUMBLO 7 0DB 
NUMIN1 FB4 3 
NUMINX FB3C 


SEARC7 F7CF 
SEARC8 F 7 DC 
SEARC9 F 7 E 7 
SEARCH F7 6 6 
SEI F 5 2 6 

SET F 6 7 3 
SET1 F6 8 A 
SET10 F 7 0 E 
SET II F7 1 A 
SET 12 F7 ID 
SET 2 F 6 9 4 


TYPCM2 FA4C 
TYPCMD FA2E 
TYPSW1 F 5 10 
TYPSWI F 5 0 1 
VERFRM 7 01B 
VERIF1 F 7 4 0 
VERIF2 F 7 4 F 
VERIFY F 7 2 0 
VERTO 7 0 1 D 
XTEMP 7 0CE 
XTEMP1 7 0 DO 


type cross.ref 


CROSS REFERENCE TABLE 


ACIAl 

00600* 

80040 

80200 

81800 

86160 

86280 




ACIA2 

00640* 

80080 

80240 







BADS1 

03480* 

03640 








BADS 2 

03520 

03760* 








BADSYN 

03400* 

04160 

09960 

12200 

17160 

21320 

27360 

35240 

55760 

BARSLA 

75600* 

78240 

79000 







BLDADR 

37120 

38080* 








BOLFLG 

01920 

47960 

70360 

90240* 






BREAK 

05440 

10160* 








BREAKl 

10480 

10760* 








BREAK2 

10240 

11120* 








BREAK3 

10200 

11480* 








BREAK4 

11720 

11960* 








BREAKS 

11000 

11240 

11360 

11880 

12160* 

12640 

13600 

14360 


BREAK6 

11560 

12200* 

14160 







BRKADR 

10360 

10800 

11120 

11600 

12040 

91080* 




BRKINS 

10600 

10880 

11280 

91120* 






BUFBEG 

01400 

02600 

03400 

19040 

75840 

78680 

91600* 



BUFEND 

01560 

75960 

91640* 







BYTECT 

37040 

37280 

92920* 







BYTPTR 

24160 

24840 

24960 

93280* 






BYTSTR 

24120 

25600 

93400* 







C100 

66120 

67560* 








C10K 

65880 

67200 

67480* 







CHKSUM 

21920 

21960 

22200 

91000* 






CKSM 

36880 

37560 

38800 

38840 

92960* 





CKSUM 

21880 

22160 

22800* 

88600 






CKSUM1 

22920* 

23040 








CLI 

05360 

09040* 








CMD3 

43160* 

45040 








CMD4 

43360* 

43960 








COMADR 

42520 

80480 

90080* 







COMAND 

03080 

11520 

12440 

13120 

14080 

15120 

19280 

32080 

36040 


42160* 

88920 








COMLST 

45600 

71160* 

80440 







COMNUM 

06440 

07680 

14280 

15280 

15480 

16000 

43000 

44120 

45000 


45760 

92640* 








COMPA1 

30080 

30320 

30560 

31320* 






COMPAR 

05920 

30720* 








CONERR 

58080 

58920 

59000 

59640 

60280 

60400 

60760 

61600* 

62400 

CONTIN 

05560 

14560* 








COPY 

05400 

09240* 
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COPYl 

09480* 

09880 



COPY2 

09280 

09360 

09960* 


COPY3 

08880 

09080 

09760 

10000* 

CPLCNT 

84120 

84640 

85360 

85760 

CPLMAX 

79760 

84160 

84360 

91560* 

CR 

00760* 

43640 

44920 

45800 


71480 

71560 

71640 

71720 


72200 

72280 

72360 

72440 


73040 

73240 

73320 

73400 


74120 

74200 

74280 

74480 


86600 

87440 

87560 

87600 

DBASE 

05520 

13080* 



DBASE1 

13200 

13280* 



DBASE2 

13400* 

13480 



DBASE3 

13160 

13960* 



DBASE4 

12840 

14040* 



DBCODE 

13280 

13960 

64480 

79520 

DBNBR 

13560 

15880 

79640 

90480* 

DBTBL 

13360 

13720* 



DECDIG 

66280 

66560 

66920 

92720* 

DECNUM 

58400 

59600* 



DELAY 

06040 

39760* 



DELETE 

75640* 

77440 

77960 

78800 

DELIM 

01720 

49920 

90320* 


DIFNUM 

31160 

52760* 



DISNUl 

65080* 

65520 



DISNU2 

65320 

65440* 



DISNU3 

68080 

68320* 

68600 


DISNU4 

68920* 

69120 



DISP10 

16960 

17200* 

17 9'6 0 


DISPL1 

15440* 

17080 



DISPL2 

15680 

15960* 



DISPL3 

16040 

16320* 



DISPL4 

16400 

16520* 



DISPL5 

16480 

16560* 



DISPL6 

15520 

16680* 



DISPL7 

16200 

16840* 



DISPL8 

16600 

16920* 



DISPL9 

14800 

15160 

17160* 

17440 

DISPLA 

05600 

14760* 



DISREG 

06320* 

08280 



DLMNO 

50080 

50320 

50920 

51160 

DLMYES 

49840 

50120 

50360 

50560 

DOCRL1 

85600* 

85720 



DOCRLF 

01120 

01880 

03840 

15760 


84960* 

89160 



DUMP 

05960 

31840* 



DUMPl 

32040* 

32280 

32480 


DUMP10 

32160 

35240* 

36080 


DUMP2 

32160* 




DUMP3 

32240 

32360* 



DUMP4 

32120 

32560* 



DUMPS 

32600 

32680* 



DUMP6 

33040* 

34920 



DUMP7 

33280 

33440* 



DUMP8 

33400 

33560* 



DUMP9 

34360* 

34440 



ECHO 

78080 

78360* 

79200 


ECHOl 

78400 

78480* 



EOSCHR 

46840 

47240 

93160* 


ERROR 

50720 

51640* 



FFF8 

89480* 




FNDST1 

46960* 

47280 




91520* 

46000 

49000 

71240 

71320 

71400 

71800 

71880 

71960 

72040 

72120 

72520 

72600 

72680 

72760 

72840 

73480 

73680 

73880 

73960 

74040 

74560 

74760 

83880 

85040 

86520 

87680 

87760 





90440* 


17800 

18280 


51480* 

50840 

51080 

51320* 

29800 

76560 

77000 83960 84600 
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FNDST2 

47160* 

47320 



FNDST3 

47040 

47400* 



FNDSTR 

42720 

45680 

45840 

46800* 

GETCHR 

25920 

26560 

43360 

48680 

GETCMD 

02080 

02960* 



GETIT 

76000 

76320* 



GETLIN 

02320 

19000 

75840* 

89080 

GETLST 

25840 

26520 

43520 

44800 

GOTO 

05280 

08400* 



GOTOl 

08440 

08640* 



GTRANl 

53680 

53880* 



GTRAN2 

53720 

54120* 



GTRAN3 

53960 

54480* 



GTRAN4 

54240 

54640* 



GTRAN5 

54360 

54880* 

55000 


GTRAN6 

54680 

54960* 



GTRAN7 

54560 

55200* 



GTRAN8 

54320 

54960 

55360* 


GTRANG 

09240 

14760 

17360 

21520 

GUDNUM 

57920 

61280* 



HDXFLG 

76920 

78360 

79880 

91440* 

HEXN1 

58840 

59160* 



HEXNUM 

58280 

58800* 



IBASE 

05480 

12400* 



IBASEl 

12520 

12600* 



IBASE2 

12480 

12760* 



IBCODE 

12600 

12760 

58200 

79480 

INHEX 

38360 

38640 

39000* 


INHEX1 

39160 

39400* 



INHEX2 

39080 

39240 

39320 

39520* 

INILST 

42280 

42520* 



INITAL 

01000 

79440* 



INPADR 

36240 

81920 

91240* 


INPCHl 

81720 

81920* 



INPCH2 

81840 

81960* 



INPCH3 

82000* 

82080 



INPCHR 

36400 

36600 

39000 

76320 

INPFLG 

36280 

37920 

79800 

81680 

INT 

05800 

30000* 



INTADR 

87920* 

89480 



INTVEC 

30040 

87920 

89840* 


ISDLM2 

50000 

50200* 



ISDLM3 

50240 

50440* 



ISDLM4 

50-480 

50680* 



JMP256 

05120* 

05160 



JMPCMD 

03240 

04320* 



JMPHI 

04480 

05080* 

05120 


JMPLO 

04520 

05160* 



JMPTBL 

05000* 

05080 

05160 


LASTGO 

08520 

08640 

90800* 


LASWAS 

78840 

79120* 



LEFSHF 

68160 

68360 

68920 

69560 

LF 

00800* 

18800 

42680 

43560 


73520 

73720 

74320 

74600 


87600 

87680 



LINPTR 

03480 

25480 

26920 

43200 


70320 

90200* 



LISNUM 

42160 

42640 

92600* 


LISPTR 

25640 

42760 

70680 

70800 

LOAD 

06000 

36000* 



LOADl 

36120 

36400* 

36480 

36800 

LOAD2 

37200* 

37440 



LOAD 3 

37320 

37560* 




57760 70200* 88640 


70680* 88680 


23960 27600 31840 53640* 88720 


90400* 


81640* 89280 
91200* 


69600 69800* 

44840 45640 

74800 83680 

49080 

85120 

72880 

87440 

73080 

87560 

44160 54120 

57400 

61280 

70200 

92680* 




37600 
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L0AD4 

36680 

37920* 








LSH2 

65080 

65120 

68000 

68320 

69560* 





MATCH 

43440 

44120* 

44640 







MEMADR 

14960 

15440 

15960 

17040 

18160 

18360 

18880 

26280 

26760 


27120 

27800 

28720 

29120 

29360 

29520 

93080* 



MFAIL 

44880 

45200* 








MSGBAT 

11960 

86880* 








MSGCCL 

28240 

87120* 








MSGCNH 

39520 

87720* 








MSGCSO 

28600 

87200* 








MSGDIS 

31200 

87360* 








MSGHED 

01160 

86480* 








MSGLTL 

76120 

86720* 








MSGNBR 

11800 

86800* 








MSGNVE 

22560 

37720 

87040* 







MSGPRM 

02200 

86560* 








MSGS0 

32840 

87440* 








MSGS1 

33760 

87560* 








MSGS9 

35040 

87600* 








MSGSIS 

31040 

87280* 








MSGSWI 

07960 

86600* 








MSGVER 

22360 

86960* 








NBR2X 

59960 

60200 

60240 

92840* 






NBRHI 

08480 

09520 

09640 

10760 

20520 

20840 

21160 

30880 

52240 


53000 

53880 

54480 

55400 

55800 

57200 

59920 

60360 

60480 


62120 

90560* 








NBRLO 

17840 

18320 

19600 

24800 

52040 

52800 

57240 

59280 

59320 


60320 

60440 

61000 

61040 

62080 

90600* 




NBRMAT 

25720 

26320 

26360 

93360* 






NBYTES 

24240 

24560 

24640 

25160 

26400 

93320* 




NEXCOM 

43800 

44480 

44800* 

44960 






NMATCH 

43600 

43680 

44440* 







NMI 

05840 

30240* 








NMIADR 

88040* 

89560 








NMIVEC 

30280 

88040 

89880* 







NOMORE 

04040* 

07000 

10000 

12160 

17200 

21360 

27400 

31320 

35200 


37960 

39840 








NOTCTC 

77160 

77440* 








NOTEOL 

76800 

77120* 








NULLS 

32680 

35120 

35360* 







NULLS1 

35440* 

35520 








NUMBER 

08400 

09320 

10160 

17760 

18200 

19440 

24360 

53640 

55480 


55680 

57160* 

88760 







NUMBHI 

64440 

65920 

66200 

69840 

92760* 





NUMBLO 

65960 

69800 

92800* 







NUMIN1 

55720 

55800* 








NUMINX 

30000 

30240 

30480 

30720 

30840 

32360 

36200 

39760 

55680 

NUMLUP 

57560 

57760* 

59400 

60560 

61120 





NUMMAT 

43280 

43920 

44440 

92560* 






NXTCHR 

75960* 

78480 

78720 







OCTNUM 

58520 

60720* 








OUT1BY 

07160 

16840 

22000 

29560 

35720 

63080* 

89000 



OUT2 

06520 

06560 

06600 

07120* 






OUT2A4 

06840 

07120 

07360 

07640* 






OUT2BY 

06920 

07400 

12080 

15800 

16720 

18920 

27160 

29400 

31520 


37840 

63440* 

89040 







OUT4 

06680 

06720 

07360* 







OUTADR 

32400 

82760 

83360 

91360* 






OUTBAK 

78000 

78200* 








OUTBIN 

64840 

68760* 








OUTCHl 

83040* 

83080 








OUTCH2 

82880 

83280* 








OUTCH3 

83160 

83440* 
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0UTCH4 

82600 

83680* 





0UTCH5 

83720 

83880* 





0UTCH6 

83920 

84120* 





0UTCH7 

84200 

84600* 





0UTCH8 

84400 

84480 

84640* 




OUTCHR 

03800 

16560 

35440 

46080 

62600 

62840 


78440 

79040 

81160 

82520* 

89200 


OUTDEl 

65760 

66120* 





OUTDE2 

66000 

66280* 

67240 




OUTDE3 

66400* 

66600 





OUTDE4 

66480 

66720* 





OUTDE5 

65560 

67280* 

68640 

69160 



OUTDEC 

64680 

65720* 





OUTEND 

81120 

81280* 





OUTEQ 

07800 

16760 

29440 

62800* 



OUTFLG 

32640 

35160 

79840 

82560 

82840 

91320* 

OUTHEX 

64600 

65000* 





OUTIT 

65440 

66960 

68040 

68200 

68520 

69040 

OUTNUM 

63160 

63520 

64320* 




OUTOC1 

67960 

68160* 





OUTOCT 

64760 

67840* 





OUTP2 

34000 

34160 

34200 

34360 

34720 

35680* 

OUTSD 

31080 

31240 

31440* 




OUTSP 

03560 

07640 

15840 

16160 

16680 

18960 

OUTSTl 

81040* 

81240 





OUTSTR 

01200 

02240 

08000 

11840 

12000 

22400 


32880 

33800 

35080 

37760 

39560 

76160 

PROMP1 

01760 

02200* 

03880 




PROMPT 

01880* 

02480 

02840 

03200 

04080 

89320 

RANGHI 

09720 

16920 

17600 

17920 

21760 

26080 


33040 

33160 

34880 

52080 

52280 

52840 

RANGLO 

09440 

09680 

09840 

14920 

17560 

21680 


33080 

33200 

34120 

34320 

34560 

34800 


52960 

53920 

55440 

90680* 



RDBYTE 

36960 

37200 

38080 

38160 

38360* 


REG 

05240 

06240* 





RESADR 

88160* 

89600 





RUBNOW 

77480 

78680* 





SEAR10 

26120 

26880 

27400* 

28960 



SEARC1 

24360* 

25000 





SEARC2 

24400 

25160* 





SEARC3 

25600* 

27000 





SEARC4 

25920* 

26160 





SEARC5 

26040 

26280* 





SEARC6 

26320* 

26640 





SEARC7 

26760* 

27280 





SEARC8 

26440 

27120* 





SEARC9 

24000 

24440 

24720 

25200 

27360* 

27640 

SEARCH 

05720 

23960* 





SEI 

05320 

08840* 





SET 

05640 

17360* 





SET1 

17880* 

18040 





SET10 

20800 

21080* 





SETH 

19320 

19520 

21120 

21320* 

21600 


SET12 

18840 

19360 

21360* 

22040 

22440 

22640 

SET2 

17640 

18160* 

18600 




SET3 

18200* 

19120 





SET4 

18240 

18720* 





SET5 

17400 

19240* 

19840 

20080 

20320 

20640 

SET6 

19760 

19960* 





SET7 

20000 

20200* 





SET8 

20240 

20440* 





SET9 

20480 

20760* 






69360 77320 


69320* 


27200 29600 

22600 29720 

81000* 89120 


26840 28920 
53040 54520 
25400 27760 
52000 52200 


20960 21240 


78280 


62560* 

31440 


31480 

90720* 

30760 

52760 
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SHFTER 

62160 

62320* 



SHIFT 

59840 

60920 

61880 

61920 

SHIFT2 

59160 

59200 

60040 

60880 

SKPDL1 

48120* 

48760 



SKPDL2 

48000 

48240 

48440* 


SKPDL3 

48520 

48680* 



SKPDLM 

04040 

42240 

47920* 

57520 

SP 

00960 

06320 

06880 

08080 

STACK 

00920 

91800* 



START 

00880* 

88160 

88440 

89360 

STORIT 

77640 

77720 

77840* 


STRNUM 

46800 

47000 

93120* 


SUMNUM 

31000 

52000* 

55080 


SWI 

05880 

30480* 



SWIADR 

88240* 

89520 



SWIVEC 

30520 

80360 

88280 

89920* 

SYNPTR 

01960 

02640 

18720 

19080 


57360 

61320 

90160* 


TEMPI 

37800 

38120 

38200 

38240 

TEMP10 

92280* 




TEMP11 

92320* 




TEMP2 

91960* 

93120 

93160 

93280 

TEMP3 

29280 

29680 

33600 

33960 

TEMP4 

33680 

34400 

92040* 

93400 

TEMP5 

31920 

32440 

32560 

92080* 

TEMP6 

92120* 




TEMP7 

92160* 




TEMP8 

92200* 




TEMP9 

92240* 




TEST 

05760 

27600* 



TEST1 

27920* 

29160 



TEST2 

28120 

28360* 



TEST3 

28480 

28720* 

29840 


TEST4 

28280 

28640 

29280* 


TIMCON 

40160 

80600 

92880* 


TIMDEl 

40240* 

40280 



TIMDEL 

39800 

40160* 

40400 

80720 

TOACIl 

86160* 

86200 



TOACIA 

84680 

85080 

85160 

85640 

TSTCMA 

50280* 

50600 



TSTCR 

76520 

76680* 



TSTCRl 

76720 

76840* 



TSTCR2 

76960 

77040* 



TSTDLM 

43400 

44600 

48480 

49680* 

TSTEOl 

49040 

49120 

49200* 


TSTEOL 

02800 

48200 

49000* 

49760 

TTYBUF 

01360 

91680* 



TTYEND 

01520 

91720* 



TYPCM1 

45920* 

46120 



TYPCM2 

46040 

46200* 



TYPCMD 

07760 

14320 

45520* 

88960 

TYPSWl 

08160 

08240* 



TYPSWI 

07960* 

80320 



VERFRM 

21720 

22840 

90880* 


VERIFl 

21560 

22160* 



VERIF2 

22240 

22560* 



VERIFY 

05680 

21520* 



VERTO 

21800 

23000 

90920* 


XTEMP 

45520 

46200 

81640 

82160 

XTEMP1 

64320 

67320 

92480* 


XTEMP2 

57160 

57600 

61360 

61600 

END OF 

LISTING 





62080* 

61880* 


88800 

14560 19560 21200 88240 90000* 


43160 44200 48120 48720 55360 

91920* 93080 

92000* 93320 93360 


88560 

86080* 89240 

57880 88840 

88880 


82720 83440 92440* 

92520* 
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PAPERBYTE ™ Bar Code Representation of MONDEB Object Code 
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Beginning on page 85 is a complete machine readable representation of the object 
code for Mondeb, as assembled in the listing found on pages 19 to 72 of this book. 

This representation uses the absolute loader format, in which each bar code frame (one 
line of bars running from top to bottom of the page) contains a two byte address 
followed by data which is loaded in ascending order starting at that address. 

The object code listing shown below gives the information in hexadecimal form, for 
use as a confirmation copy or for manual entry of this program. 

For details on the frame format and absolute loader format used in this and all" 
PAPERBYTE™ books, see the PAPERBYTE publication Bar Code Loader by Ken 
Budnick. This book contains a brief history on bar codes, a general bar code loader 
algorithm with flow charts and complete program listings for 6800, 6502 and 8080 or 
Z-80 based systems. 
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A Note About Bar Codes ... 


Bar codes are the newest form of machine readable data repre¬ 
sentation. They are used in all PAPERBYTE™ software pro¬ 
ducts in BYTE magazine articles and self contained book publi¬ 
cations and combine efficiency of space, low cost, and ease of 
data entry with the need for mass produced machine readable 
representations of software. Bar codes were originally used for 
product identification in inventory control and supermarket 
checkout applications. Today, because of their direct binary 
representation of data, they are an ideal, computer compatible 
communications medium. In the application of bar codes to soft¬ 
ware distribution (such as PAPERBYTE books and articles), 
the use of a simple but reliable optical scanning wand and an 
appropriate program provides a convenient means for the user 
to acquire software. 

Our intent in making PAPERBYTE software available in 
bar code form is to provide a method of conveying machine read¬ 
able information from documentation to the memories and mass 
storage of a user's system on a one time basis. We suggest that 
the user of software obtained in this manner should locally record 
the data on the mass storage devices of his system after the data 
has been scanned from the printed page. The PAPERBYTE bar 
code representations provide a standardized means of obtaining 
the data, but they cannot be compared*to the convenience 
of local mass storage devices such as floppy disks, digital cassettes 
or audio cassettes. Thus if repeated use of the software obtained 
from bar code is anticipated, we recommend that the user make a 
copy on some form of magnetic medium. 

Bar Code Loader by Ken Budnik, the first in the PAPERBYTE 
series of software books, provides a brief history of bar codes, a 
look at the PAPERBYTE bar code format including flowcharts, a 
general bar code loader algorithm and well documented programs 
with complete implementation and checkout procedures for 
6800, 6502 and 8080/Z-80 based systems. 




AN ADVANCED M6800 MONITOR- 
DEBUGGER incorporates all the 
general features of Motorola’s 
MIKBUG monitor as well as 
numerous other capabilities. 
While extremely versatile, ease 
of use was a prime design con¬ 
sideration. The other primary 
goal wa nlmum memory 
requirements while retaining 
maximum versatility. The size of 
the entire MONDEB program is 
less than 3 K. 

Some of the command capabilities 
of MONDEB include displaying 
and setting the contents of 
registers, setting interrupts for 
debugging, testing a program¬ 
mable memory range for bad 
memory locations, changing the 
display and input base of num¬ 
bers, displaying the contents of 
memory, searching for a specified 
string, copying a range of bytes 
from one ’ocation in memory to 
another, s.id defining the location 
to which control will transfer 
upon receipt of an interrupt. 
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